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I. INTRODUCTION 


A. BACKGROUND 

_ Weste and Eshragian [Ref. 1] describe silicon compilers as “an automatic trans- 
lation tool that converts a behavioral description into a mask level description.” 
Silicon compilers provide a powerful tool that allows the designer to explore pertor- 
mance tradeoffs associated with changes to VLSI designs. This is a capability that 
less automated design environments do not allow. 

The Monterey silicon compiler (MSC) evolved from an ongoing effort to con- 
vert the NMOS based MacPitts silicon compiler into a Scalable Complementary 
Metal Oxide Silicon (SCMOS) silicon compiler. MacPitts was developed by Siskind. 
Southard and Crouch [Ref. 2] at the Massachusetts Institute of Technology Lincoln 
Laboratories in 1981 - 1982. Like its predecessor, the MSC is a fixed floor plan sil- 
icon compiler suited to handle concurrent parallel data-path architectures common 
In many signal processing applications. 

MacPitts has been studied at the Naval Postgraduate School since 1984. Early 
thesis work dealt with its installation and documentation. Very little documentation 
existed on MacPitts at that time. MacPitts was installed on the VAX-11/780 bv 
D. Carlson in 1984 [Ref. 3]. In 1985 A. Froede [Ref. 4] discussed MacPitts 
internal structure, and R. Larrabee [Ref 5], demonstrated the relationship between 
the source program and the final chip layout. In 1986, M. A. Malagon-Fajar [Ref. 6] 
completed a valuable study on the relationship between the compiler and its layout 
language, LS. In the same year, E. Weist [Ref. 7] developed a flowchart based input 
interface for MacPitts. In 1987, A. Mullarky (Ref. 8] designed the first SC\IOS 


cells, and E. Malagon [Ref. 9] described the structure of the data-path and inserted 


the first SCMOQOS organelles. That same year, J. Baumstarck (Ref. 10] designed aud 


inserted additional SCMOS organelles. 


B. SCOPE OF THESIS INVESTIGATION 

\facPitts’ pad placement and pad routing algorithms are tremendously ineffh- 
cient in both area and speed performance. The order in which pads appear on the 
chip is specified by the user in the source file. MacPitts distributes the pacls as 
evenly as possible along the top, right and bottom sides. No effort to optinuze any 
of a number of possible parameters is attempted. 

A second significant problem with MacPitts’ designs is the requirement for all 
nets connecting to pads to enter the circuit through the left side. The extremely 
long routing paths that result, impact adversely on the chip’s speed. 

This investigation has two goals. First, to continue the study on the structure 
and methods of MacPitts, and, second, to develop, implement and test algorithms 
that will do a better job of routing pads thanin MacPitts. This thesis introduces ancl 
documents a set of LISP functions that result in more efficient pad placement and 
routing. This is accomplished by first opening up the internal circuit to the outsicle 
on both the left and right sides. Second, area and wire length optimization criteria 
are introduced into the pad-placement routines. Finally, net layout algorithms were 


moclified to minimize the use of inferior routing layers, such as polysilicon. 


C. THESIS ORGANIZATION 

Chapter II discusses various routing methods. The routers discussed were se- 
lected from the many available because of their applicability to specific routing issues 
within MacPitts, or because of their fundamental value. Chapter III describes the 
pad and river router and pad placement used by MacPitts, and Chapter IV describes 


a new pac placement and pad router. Chapter V gives the comparative analysis 


results between the new and old pad placement and pad routing techniques. Con- 
clusions drawn from the results of Chapter V, and suggestions for future research 
are offered in Chapter VI. Appendix A contains the LISP code of the functions in 
MacPitts involved with pad routing and placement. Appendix B contains the LISP 
functions that implement the new pad placement and routing process. Appendix C 


wicludes the source files of all the circuits tested. 


IT. ROUTING TECHNIQUES 


Much work has been done on the LSI and VLSI interconnection problem. The 
realization that all-purpose, optimal routers are an impractical approach to the 
interconnection problem has led to a search for different approaches. The solution 
has been to develop routers specialized to interconnect specific geometries. These 
routers produce near optimal solutions with reasonable resource requirements by 
exploiting circuit characteristics. This chapter discusses the nature of the VLSI and 


LSI interconnection problem and surveys current routing techniques. 


A. GENERAL ROUTING PROBLEM 

The input for an instance of an IC layout problem consists of a set of cells and a 
set of signal-net definitions. A cell can be thought of as a rectangular box with pins 
on its boundary. Pins specify the location on the cell perimeter where electrical 
connections are made, and a signal-net identifies a set of pins to be interconnected. 
As a general rule, routing paths are not allowed to cross over cells. Because of its 
complexity, the custom IC layout problem is divided into a placement phase and a 
routing phase. In the placement phase the objective is to find a cell arrangement 
that leads to an “optimum” circuit layout. It must minimize layout area, yet allow 
sufficient space between cells for efficient routing. Several interesting techniques 
have been developed. With names like synthetic annealing and genetic evolution, 
these techniques emulate natural processes and avoid entrapment in local minima 
by introducing a degree of randomness into the optimization procedure. This study 
assumes that an acceptable cell placement has already occurred. 

Once cell locations are established the routing process begins. The routing 


problem is defined by a set of cells and a set of signal nets. A solution to the routing 


problem is obtained once all pins specified by the signal-nets are interconnected. 
The interconnection process must be completed within the context of technology 
dependent design rules. 

The previous statement of the routing problem disguises its complexity. Find- 
ing an optimal solution to routing even modest-sized circuits is an extremely difh- 
cult task. In fact, routing problems belong to a large class of NP-complete (non- 
deterministic polynomial time complete) problems.’ No method for an exact solu- 
tion with a computing effort bounded by a power of N, where N is the number of 
interconnections, is known. 

Many factors contribute to the difficulty in finding optimal routing solutions. 
The most significant are related to the physical and electrical properties of the 
materials used in the circuit and to limitations in the fabrication process. The effect 
these issues have in the design process is often included in the design environment 
adopted by the designer. This environment is embodied by a small set of design 
rules. 

The properties of the various layers used in IC manufacture and their interaction 
determine which layers are suitable for routing and how they are to be used. An 
ideal routing layer has negligible propagation delays and is electrically insulated 
from all other layers. Of course, no single layer measures up to this ideal. However, 
as the following description shows, some layers come closer to achieving this ideal 
than others. | 

An n-channel metal-oxide-semiconductor (nMOS) fabrication technology uses 
metal, polysilicon and diffusion layers. Because the metal layer is insulated from 


all others, it can cross either diffusion or polysilicon with no significant functional 


‘NP-complete problems do not yield optimal solutions to any efficient algorithm. The name refers 
to the empirical observation that no solution bounded in time by a polynomial in S, where S is the 
number of steps required to solve one instance of the problem, has been found. 


effect. In fact, to connect metal to other layers requires a poly-metal or a diffusion- 
metal cut. Cuts are little more than holes through the insulating layer that permit 
electrical connections between dissimilar layers. Unlike metal, whenever polysilicon 
completely crosses diffusion, an nMOS field effect transistor is created. 

Various fabrication and operation mechanisms contribute to alter the final prod- 
uct from that conceived by the designer. These include: mask misalignment, vari- 
ations in the photoresist edges due to variations in exposure, undercutting of the 
oxide beneath photoresist corners, overetching, spreading of diffusion and implan- 
tation under gates or near the source drain end, and tolerance of the field-oxide 
windows. Finally, a feature’s size can change during operation due to metal migra- 
tion. 

Rather than struggle with a long list of complex process and fabrication depen- 
dent parameters the designer works in an environment consisting of a few conserva- 
tive design rules. Design siiles can be thought of as allowable mask layer geometries 
that permit design variations while guaranteeing correct circuit behavior. The pur- 
pose of design rules is to guarantee that, under the cumulative contributions of those 
factors mentioned in the preceding paragraph, the circuit operates correctly. There 
are many different design rule sets in use today. It is up to the user to select those 
rules that best meet the requirements established by the technology, fabrication 
process and intended market. 

In 1979 Mead and Conway [Ref. 11] formulated a set of design rules for the 
nMOS process that have become a standard in academia. They rely on the length 
parameter A to determine a minimum feature size. The quantity A corresponds 
to the maximum deviation of a mask on the wafer from its intended position. As 
a result, the maximum deviation of two features on different masks on a wafer is 
2A. If the crossing of these two features is catastrophic for the design, they must 


be separated by at least 2A in the design drawing. If not, it is assumed that the 


maximum movement of an edge is 0.5\ and the edges must be separated by at 
least 14. These two rules form the basis for most of the Mead-Conway design 
rules. Stricter exceptions are needed to contend with metal width and spacing, 
and diffusion spacing. Mead-Conway design rules specify the minimum conducting 
path width and the minimum distance between any layer combination. Simplified 
Mead-Conway rules are depicted in Figure 1. 

The decision to use Mead-Conway rules was based on three factors: they are 
relatively simple to use; they are widely accepted by the academic community; and 
they are the design rules which the MAGIC [Ref. 12] graphics editor design rule 
checker uses. It should be noted that circuit performance degradation, as well as 
an increase in chip area could make the A rules unsuitable for commercial use. The 
original MacPitts designs did not adhere to Mead-Conway design rules. Lt. J. 
Harmon edited the organelles.! and the control.l files at the Naval Postgraduate 
School to remove all non-conforming structures. 

The routing problem is further complicated by a wide choice of optimization 
parameters. M. F. Kelly (Ref. 13] conducted a study on comparative router per- 
formance. In the study he lists 22 problem specifications (routable area, number 
of net-lists, etc.) and 22 performance description characteristics (total wire length, 
routing area, etc.). Since there exists no practical algorithmic router, there is no 
routing technique available that will route every circuit optimally. A router that 
performs well for a specific circuit geometry and a given set of parameters may 
yield unfavorable results if either the circuit architecture or optimization param- 
eters change. Various parameters can be used to evaluate router performance. 


Candidates include: 


1. Degree of automation 


2. ‘Total wire length 
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Figure 1: Mead-Conway width and spacing rules 


3. Total resistance and capacitance 
4. Number of cuts 

5. Total routing area 

6. Wire density or congestion 

7. Number of bends 


8. Computer resources required 


B. ROUTERS STUDIED 

Many routers have been developed to _— circuit interconnection problems. 
By one set of criteria they are divided into two categories: algorithmic or heuristic. 
The algorithmic suite is represented by Lee’s [Ref. 14] expanding wave router and 
its variants. Lee’s router is algorithmic in that it guarantees to find a path for a 
given net provided a path exists. All other routers are based on some heuristic. 

A different set of criteria partitions the router suite into either detazled or global 
routers. Global routers identify those routing areas that a net must traverse to 
make contact with all its terminals. Detailed or exact embedding routers complete 
the routing job by actually laying out the conducting paths. 

A problem encountered in selecting those routers to be included in this study 
when comparing routing strategies is the large numbers of routers currently avail- 
able. Since it is virtually impossible to investigate all available routers, a selection 
was made based on their fundamental value or their applicability to routing issues 
in MacPitts. The routers to be discussed are the Lee router, global router, channel 
routers, river router and the moat router. 

1. Lee Router [Ref. 14] 

Lee’s router resulted from an endeavor to “... find procedures that will enable 


a computer to solve efficiently path connection problems inherent in logical drawing, 


wiring diagramming and optimal route finding.” It is flexible enough to permit 
the user to choose among one or more optimization parameters: wiring length, 
congestion, layer crossover, etc. All versions route one net at a time, starting 
out with a pin of the net and progressively assigning distance values to the cells 
surrounding it, as in an expanding wave. This continues until the destination pin is 
reached. The optimum path is marked by backtracking towards the source pin by 
way of those cells with the minimum distance values. Variations between versions 
of Lee’s algorithm are primarily the result of different attempts to speed up the 
routing process. 

All Lee routers suffer from three significant flaws. First, since each net is 
routed independently, early routing decisions can significantly degrade or completely 
block the routing of subsequent nets. Second, Lee routers require vast amounts of 
storage since each cell must be able to store both a distance value and informa- 
tion about a backtrack direction. Finally, Lee routers are slow since the wavefront 
expands in all directions irrespective of the target’s direction. Generally, the algo- 
rithm has a time complexity in the order of O(n’), where n is the minimum distance 
between source and target. 

Lee translates the layout problem into a C-space defined by the quintuple 


(C,S,N,0,M). In the model: 


1. C is the set of cells, C = c’,c’,...,c" defined by a grid superimposed on the 
routable area. 


\ 


N is the 1-neighborhood function, N(c') = ci, ch, . 
of C' whose elements are physically adjacent to c’. 


,ci. N(c') defines a subset 


3. S is a finite set of symbols called the alphabet of C. 


4. Dis a map of C' to C x 5. For every c’ EC, T(c') = (c',s’), s? € S. In other 
words, for every cell c’ € C' there is mapped to it a symbol s/ € S. 


5. Let c' and o? be two distinct cells in C. By a path p(c’, oJ) 3 is meant the chain 
of all cells c” = c’,c),c?,...,e" =e suchwthtianre N(ci ) for (t = 0,1,...,m). 
By m(c',c’) is eat i a of all paths p(c',c’) between cells c' ae am 


10 


6. M is the admission map with domain z(c',c’) and range 0,1. Any path 
p(c',c’) is said to be admissible if M(p(c', o)) = = 1. Otherwise the path is said 
to be inadmissible. The set of all > dieele paths is denoted by r*(c',c?). 


Given a set of admissible paths, Lee’s algorithm finds the minimal path with 
respect to a vector of r functions F = (f;, fo,...,f-). A path p}(c',c’) is said to be 


minimal with respect to f; if 


A(p'(',e)) < Arle’, 2)) 


for all p(c',c’) € m*(c',c?). A path is minimal with respect to (f;, fz) if p'?(c', c) € 
P}(c',c?), where P}(c',c’) is the set of all paths in *(c',c’) that are minimal with 
respect to f;. In other words, p!* is minimal with respect to (fi, fz) if along all paths 
minimal in f;, it is also minimal in f,. In a similar fashion, a path p!**"(c',c?) can 
be found that is minimal with respect to (f;, fo,..., f-). The vector F represents the 
parameter or parameters which are to be minimized. Priority between parameters 
is determined by position in F’. The first parameter to be evaluated has the highest 
priority, the second is next, and so forth. This convenient ordering results because 
the minimal subset of m*(c', c’) is first selected with respect to f,. All admissible 
paths resulting from this selection become the domain from which minimal paths 
for subsequent parameters are selected. This sequence of dependency is repeated 
for each function. 

Given two cells (c',c’) € C, Lee’s algorithm will find those admissible paths 
which are minimal with respect to fF. The algorithm simply starts at one end, say 
c' and marks all N(c') with a symbol of S. It then looks at all N(N(c')) and marks 
all that are admissible (not a member of N(c')). It continues this procedure until 
it reaches the target cell or until all cells in C are marked. In this case, no path 
exists. Finally, from all the possible solutions the optimal one 1s selected. 

The following example illustrates how Lee’s algorithm works. In this example 


the goal is to find the path between terminals of a net that minimize the number 
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Figure 2: Initial circuit configuration 


of other net paths crossed. Lee introduced it as a minimal-crossing problem in 
his original paper. Actually, it is a two function problem because it also prevents 
routing on the edges (squares marked with x). In the example, net A has already 
been routed through squares 6, 5, 16, 15, 14, 3, 2, 11 and 28 (see Figure 2). 

The l-neighborhood function N and coordinate functions d;,d2,d3, and d, 
are defined as follows. Given a cell c', d;(c') is the cell directly above c', d2(c') is the 
cell to the right of c',d3(c') is the cell below c' and d,(c') is the cell to the left of c’. 

The vector F' is constructed by considering the parameters to be optimized 
and the properties of the fabrication materials. For example, in a two routing layer 
technology such as nMOS, the routing process can be simplified by assigning one 
routing layer to horizontal wires and the other to vertical layers. If a wire has 
to change direction a via is used to connect the two dissimilar layers. For such a 
minimal crossing problem the vector F consists of one function f which is described 
as follows: 


l. f(p(c*,c”)) =0. The cell mass of a cell routed to itself is 0. 


. If s(c') = blank, then 


MIN {f(p(c%,c2)), le en(c')} Over all 
for which fs~c*,7)) has been defined; 


f(p(c", cs aaa 


undefined otherwise 


The cell mass of a blank cell equals the minimum among the cell masses of 
its 1-neighbors. 


. If s(c') = —, then 


(MIN. (4(plee.dy (c!))),S(P(e" dg") +1 
if either one of the values of f is defined; 


ie c’)) “i 


undefined otherwise 


The cell mass of a cell with a vertical wire is the minimum among the cell 
masses of its 1-neighbors plus one. 


Melies(c’) = |\pthen 


(MAD. {f(r 49 (e*))).F (Peed (ct) HH1 
if either one of the values of f is defined: 


iCGe) = 


undefined otherwise 


The cell mass of a cell with a horizontal wire is the minimum among the cell 
masses of its 1-neighbors plus one. 


. Tf s(c’) = |, |, f or ], then f(p(c*,c')) = co The cell mass of a cell with a via 
is large enough to prevent routing through it. 


. If s(c') = x, then f(p(c*,c')) = co The cell mass of edge cells is large enough 
to prevent routing through it. 


The following terms are used throughout the discussion of the minimal cross- 


ing example: - 


1. A cell list Z consists of names of cells which have been looked at and still have 


admissible l-neighbors that have not been assigned a chain coordinate. 


2. Cell mass is the sum of f as it follows the path from the source cell to the 
current cell being examined. : 


3. Chain coordinates are assigned to each cell that has been investigated. They 


specify both the direction to the previous cell and the cell mass. 


A solution to the routing of net B in Figure 2 is shown in Figure 3. The 


initial D list starts out with cell 18, the source cell. Admissible 1-neighbors include 
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Figure 3: Cell configuration after Lee algorithm with a minimal-crossing parameter 
is applied 
[5, 17, 19]. Notice that cell 39 is not an admissible neighbor of 18 because it sits on 
the edge. Based on the definition of f, cell 5 is assigned a cell mass of 1 because 
it already has a vertical wire. Cells 17 and 19 have cell masses of 0 because they 
are blank cells. Since their cell masses are minimum, cells 17 and 19 are appended 
into L. Furthermore, chain coordinates (| , 0) and (7 , 0) are assigned to 17 and 
19, respectively. The 0 in the chain coordinate refers to the cell mass. The arrow 
points the path back to the source cell. LZ now consists of cells 17, 18 and 19. 

The process is repeated. Now the admissible l-neighbors to list Z include 
5 and 20. All other cells are inadmissible because they are either edges (cells 36, 
37, 38, 39 and 40), have vias (cell 16) or have terminals (cell 6). The cell masses 
assigned are 1 and 0 respectively. This time, cell 20 is added to L and is assigned 
a coordinate chain of (T , 0). Also, 17 and 19 are removed from L since all of their 


possible 1-neighbors are either inadmissible or have alredy been assigned a chain 


14 





Figure 4: Cell configuration after Lee algorithm with a minimum-wire-length pa- 
rameter is applied 


coordinate. Repeating this process leads the pointer to cell 27. Z now includes cells 
18, 10 and 27. Admissible 1- neighbors are cells 5 and 11 with cell masses of [1, 1]. 
respectively. ZL now consists of cells 5 and 11. The algorithm has determined that 
it is not possible to route net B without crossings. Chain coordinates of (+, 1) and 
(7 , 1) are assigned to 5 and 11, respectively. The process continues until the path 
with minimum cell mass reaches the target cell as shown in Figure 3. Notice that 
this path has one crossing at cell 11. 

Figure 4 shows the same problem routed with respect to a minimum-wire- 
length —— In this instance, different parameters vield different results for 
the same circuit. It is precisely this flexibility that has made Lee’s algorithm one 
of the most popular Printed Circuit Board routers. 

2. Global Router 

Global routers assign nets to routing regions but leave the actual track layout 

to exact embedding routers such as the Lee or channel router. They are effective 


in reducing seemingly intractable problems, into a series of less complex ones. This 


lo 


divide and conquer approach can reduce computation times drastically. Global 
routers must provide certain essential information for the exact embedding router 
to complete the routing process. At a minimum this information must include: 

1. The set of routing regions traversed by each signal net. 

2. The set of edges crossed by a signal-net in each routing region. 

3. A set of strands specifying which crossings must be connected within a region. 


A net may have more than one strand within a region. Such cases result in 
tree-like interconnection structures. 


The global router algorithm is similar to the Lee router algorithm. Like 
Lee’s algorithm, the router is concerned with one path at a time. It begins at the 
source and expands outward, evaluating a cost at each routing area. The algorithms 
differ in that global routers evaluate all routing areas in the circuit (using Lee router 
terminology, every routing region is assigned a cell mass for every net-list). Once cell 
values are assigned, the optimal path is determined by backtracking from destination 
to source as in the Lee router. Before starting a more detailed description of the 
algorithm, some definitions are in order: 


1. Routing regions must be defined by the global router or by some prior al- 
gorithm. A common practice is to extend the horizontal and vertical cell 
boundaries until obstacles (other cell boundaries) are reached. The rectangu- 
lar areas that form from the intersections of the various edge extensions are 
the routing regions (see Figure 5). 


2. Channel capacity refers to the number of crossings that a routing region can 
support. 


3. A fence-list consisting of all nets having pins within a routing region is con- 
structed to ensure that crossing space is available for these cases regardless of 
when that signal-net is routed. 


4. Edge values represent the cost assigned a net-list for traversing any routing 
region edge. This is a dynamic value. As more nets are allowed to cross a 
channel, the channel edge values increase. When the channel is saturated, an 


arbitrarily large number representing infinity is given to that region’s edges 
to prohibit any other nets from using that channel. 


The global router initiates its path search at the signal-net source and expands 


in all directions (vertical and horizontal) until all routing regions have been tested. 
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Figure 5: Partitioning a chip into global wiring cells. 


At each region, a value representing the total routing cost from the source to the 
current region, is calculated. A cost value is computed by adding the cost of crossing 
into the new area to the value calculated at the previous area. If this value is less 
than the current value for that cell, it becomes the new value. Otherwise, the old 
value remains in force. Once all regions are assigned a cost, the optimum path is 
determined by backtracking along the minimum cost routing areas until the source 
is reached. As with the Lee router, different optimization parameters can be used 
to meet specific design goals. 

Figures -6 — 10 describe events that lead to the selection of a path for net -4. 
The initial edge values in Figure 6 are the result of nets that have already been 
routed. Scores at the fifth and sixth step and at the end of the forward propagation 
are shown in Figure 7 - 9. The number inside each square is the minimum sum of all 
the edges crossed to get to that square from the source cell. Consider, for example, 
square (4,2), 1.e., the cell in the 4th column and 2nd row. The cost at square (4, 2) 


at step six is the minimum of the cost of moving to (4,2) from square (3,3), which 
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Figure 7: Cell values after step 5. 
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Figure 8: Cell values after step 6. 
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Ficure 9: Cell values at the end of forward propagation. 
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Figure 10: The backtrace route. 
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3. Channel Router 


Channel routers are perhaps the most widely used routers today. Their pop- 


ularity has resulted in the development of a wide collection of channel routing 


techniques that efficiently interconnect more diverse architectures. The first chan- 


nel router was introduced in 1971 by Hashimoto and Stevens [Ref. 15] to route 


ILLIAC IV computer control boards. These two layer boards consisted of up to 165 


identical dual-in-line IC packages in an 11 row by 15 column matrix. The channel 


router was developed to exploit the large regular routing regions created by this 


geometry. 


As described by Rivest and Fiduccia [Ref. 16], a channel routing problem is 


specified by: 


tO 


. A channel length 4. 
mloplaiabotenmeonnection lists 7 =(7),/7>,...,7,) and B = (B,, Bo, ..., By), 


where B; and T; are the net names for the pin at the 7th column of the channel. 


. Left and right connection lists LD = (1,,L2,...0,) and R = (R), Ro,...Rn) 


specifying which nets extend through the ends of the routing channel. 


A channel routing solution is specified by: 


. A channel width w representing the number of tracks used. 


For each net n, a set of connected horizontal and vertical wire-segments whose 
endpoints are grid points (z,y) with 1 < y <w and0 < 2x < A. Segments 
with endpoints (2,0) or (7, w + 1), where i is the ith column of the channel, 
must be included in J; or B;. Nets in LZ must have endpoints at rz = = 0, 
while nets in R must have endpoints at rc = 1 +1. Segments oriented along 
the channel length are called tracks and usually are assigned metall, the 
layer with the best performance characteristics. Segments that run across 
the channel are usually shorter and are assigned a routing layer with inferior 
electrical properties, such as polysilicon. When required, the different lavers 
are interconnected by means of cuts or vias. 


To distinguish it from its descendants, the original channel router is commonly 


referred to as the left-edge channel router. It tries to minimize the channel width, 


w, by maximizing the number of nets sharing each track of the channel. This is 


done in the following manner. Nets are sorted by the location of their left endpoint. 
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Figure 11: The left-edge channel router. 
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In the example on Figure 11, the sorted list is [1,2,3,4,5,6,7,8,9,10]. The router then 
selects the first endpoint, 1, and places it in the lowest left corner of the routing 
nrea. It next searches for a segment that does not overlap net 1. In this case, net 
6. As nets are selected, they are removed from the sorted list. This process is 
repeated until no more nets can be placed in the first track. The algorithm then 
Starts with track 2, which in this example is occupied by nets 2, 7 and 10. The 
process continues until all nets are assigned to a track. The track selections made 
bv the left-edge algorithm are shown in Figure 11. 

The track assignment method used by the left-edge channel router is guaran- 
teed to find an optimal solution to a channel, provided no vertical constraints are 
present. [f such constraints do exist, the left-edge router is not equipped to handle 
them. Vertical constraints occur when pins from different nets are placed opposite 
each other in a column. This forces one net above the other to avoid shorting the 
nets. Figure 12 shows a vertical constraints between nets 1 and 3, nets 1 and 2, nets 
3 and 4, and others. Vertical constraints can be represented by a vertical constraint 


graph. A vertical constraint graph is a directed graph with its nodes represent- 
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Figure 12: A channel with vertical constraints. 


ig nets in the circuit and its branches depicting the relative position between the 
horizontal net segments in the channel. 

Figure 13.d depicts the vertical constraint graph of the channel shown in 
Figure 12. The vertical constraint graph can be constructed iteratively by examining 
the nodes at each column of the channel. Starting at the left side of the channel 
described in Figure 12 net 3 is above net 1. This is represented on the vertical 
constraint graph by placing node 3 above node 1, and connecting them with a line 
as shown in Figure 13.a. In column 2, net 1 is above net 2. Since net 1 is already 
part of our graph, the line from node 1 is extended to node 2 as shown in Fi igure 
13.b. In the next column net 3 is above net 4. The graph now looks as in Figure 


13.c. This process continues until all columns have been examined. In the example, 
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this occurs at the right end with the column containing net 5 only. Since net 5 
has no vertical constraints, it is represented by a single isolated node. The vertical 
constraint graph for the channel is illustrated in Figure 13.d. 

The left-edge channel router fails to find a solution to channel problems with 
cycles in the vertical constraints graph. Cycles in the vertical constraint graph 
are called vertical constraint loops. As shown in Figure 14.a and 14.b, loops occur 
when there are at least two distinct paths connecting two nodes. As Figure 14.c 
shows, solutions to these problems require that one of the two nets be split into two 
horizontal paths. This is called doglegging. 

The original dogleg channel router was proposed by Deutsch [Ref. 17]. It 
overcomes the vertical constraint problem presented above by breaking net 1 into 
subnets. Net la connects the top two pins and net 1b completes the connection 
to the bottom pin. The new vertical constraint graph is shown in Figure 14.d. 
Dividing a net into subnets is not always possible because nets can only be divided 
at columns where their pins are located. This means that cyclic loop problems can 
be solved provided the net has at least three terminals. Cyclic loops involving two 
terminal nets cannot be routed. Such a channel is illustrated in Figure 14.e. 

Finally, a very different approach is taken by the greedy channel router pro- 
posed by Rivest and Fiduccia [Ref. 16]. Instead of routing the channel on a row 
by row basis as done by other channel routers, the greedy channel router routes 
one column at a time starting with the left edge. In each column it performs the 
following steps: 

1. Makes connections to any pins at the top and bottom of the channel. 


2. Combines as many as tracks as possible by merging or collapsing nets that 
currently occupy more than one track. 


3. Reduces the distance between tracks occupied by nets still occupying more 
than one track. 


4. Moves a net up if its next pin is on top of the channel or down if its next pin 
is on the bottom. 
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Figure 13: Making the vertical constraint graph for channel of Figure 12: (a) first 
column, (b) first two columns, (c) first three columns, (d) final solution. 
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Figure 14: Vertical constraint loop: (a) channel, (b) graph of (a), (c) solution, (d) 
graph of (c), (e) channel that cannot be subdivided 
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Figure 15: A channel routed by the greedy algorithm. 


d. Adds a new track if a pin can’t be connected because the channel is full. 


Figure 15 shows a channel routed by the greedy algorithm. 

The greedy algorithm still suffers from some of the problems afflicting other 
algorithms. First, since it looks for local optimums, ee could be created 
that result in unworkable routing situations later on. Second, a cycle in the vertical 
constraint euh might make the channel impossible to route in the available channel 
length. The channel in Figure 16 provides such an example. Nets 3 and 10 cannot be 
completed because thev are extended to the right edge of the channel. To complete 
this problem, the channel length must be increased by two columns. 


4. River Router 





The river router offers a fast and efficient exact embedding technique for the 


Interconnection of a specific type of routing problem in one or more routing lavers. 
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Figure 16: A channel unroutable by the greedy algorithm. 
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Figure 17: The river routing problem 


It is the prescribed router when faced with: 


-— 


. A restricted or fixed routing space. 


lo 


. Terminals located on opposite sides of the routing area. 


3. When only one routing layer is available, terminals are positioned so that no 
“crossovers” are necessary. 
The router may be equipped with optimization routines to minimize the river width. 
The river routing problem is more formally defined in the following manner. 
Given a rectangular routing region with fixed dimensions, a set of n connection 
points Brdered from left to right along the top T = (7;,7»,...,7,,), and a set of n 
counection points ordered from left to right along the bottom B = (B,, Bo,..., B,). 
the river router generates n wires to interconnect each (B;,7;) pair (see Figure 17). 
The wires must he within the fixed routing region. If a one-layer river router is 


used, no “crossovers” are permitted. 


Although the river router solves the problem given to it efficiently, few circuits 


spontaneously produce layouts suitable for river routing. As a result, river routing 
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almost always presupposes less than optimal cell layouts as the order of pins in one 
river bank is made to correspond to the pin order across the river. These changes 
inevitably lead to less efficient designs. MacPitts’ approach to routing between 
data-path and controller provides a clear example of this problem. To comply 
with the requirement for no crossovers imposed by the river router, MacPitts must 
compromise the optimization of either the data-path or controller layout. Since the 
data-path is usually the more complex structure, MacPitts decides to make the pin 
order of the controller correspond to the order in the data- path. The results are 
long horizontal polysilicon runs that span the entire controller, and a controller that 
may be larger than necessary. 
5. Moat Router 

The final step in the layout of an IC is the routing of internal cells to a ring of 
pads on the circuit periphery. The peculiarities of the pad routing problem generate 
a new set of heuristics which make the design of a routing scheme to specifically 
solve this problem worthwhile. Since the region to be routed 1s usually in the shape 
of a moat, the term moat router was coined by R. K. McGehee [Ref. 18]. 

The pad routing problem is actually an instance of the channel or river routing 
problem. In fact, the moat is really just a channel bent into a ring. The horizontal 
tracks found in the channel router are converted into concentric circles and vertical 
columns are transformed into radial columns (see Figure 18). 

Moat routers can use one or more routing layers. As with channel routers, 
when two routing layers are available, the better conductor is assigned to wire the 
longer lengths. In the moat router this corresponds to the layers of concentric 
tracks. Since the radial columns are usually much shorter, the poorer conductor is 


used there. 
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Figure 18: Concentric tracks and radial column geometry of moat routing region 
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Figure 19: Moat routing direction ambiguity 
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Though similar in many respects to the channel and river routers, moat 
routers introduce a unique problem. Because a moat is a closed loop some am- 
biguity in selecting the best routing direction can occur. Within a channel there is 
no ambiguity in routing a net-list. In a moat, a two terminal net can be routed in 
two ways, a three terminal net can be routed in three ways, and so on (see Figure 


19). Selecting the correct routing direction is crucial if optimal designs are desired. 


C. SUMMARY 

Selecting a specific router from the many available can be a very difficult prob- 
lem. The global router divides a large problem into many smaller and simpler ones. 
The versatile Lee router is an exact embedding algorithm that will find an optimal 
route for a net, if a solution exists. Its demand for computer time and resources 
however, cannot be always satisfied. 

Channel routers require much less information but are limited to those problems 
that can be expressed in terms of a well defined routing region with net connections 
at the edges. The left-edge router results in optimal solutions provided that no 
vertical constraints exist in the channel. Vertical constraints and cyclic constraints 
are handled efficiently by either the dogleg or greedy channel routers. 

The moat and river routers are actually channel router variants. The moat 
router differs in that its routing areas form a ring. It is well suited to solve the pad 
routing problem. In the river router all nets have a terminal on each “river bank”. 
When only one routing layer is available, the net-lists must be arranged so that no 


crossovers occur between nets. 
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ROUTING IN MACPITTS 


The MacPitts compiling process produces a predictable design architecture con- 
sisting of a variety of functional and physical components. ‘To completely intercon- 
nect a circuit, a variety of ad hoc routers, each intimately tied to the specific problem 
at hand, are used. In this section MacPitts’ approach to routing between data-path 
units, between data-path and controller, and between the interior circuit body and 
pads is examined. The LISP functions discussed in this section are enclosed in Ap- 
pendix A. Throughout this thesis, MacPitts’ function names will be indicated by 


bold font and function arguments by italics. 


A. ROUTING IN DATA-PATH 

Starting with basic building blocks called organelles, MacPitts assembles a data- 
path hierarchically. The data-path can become very complex. An organelle is a 
hand-crafted one bit representation of a particular logic function, arithmetic func- 
tion, shift function or comparison test. For an n-bit word, n organelles are stacked 
vertically to form a unit. A description of the MacPitts data-path design and rout- 
ing organization is presented by E. Malagon [Ref. 9]. 

All inputs to and outputs from an organelle are routed to the data-path bus for 
transmission. Figure 20 illustrates a typical data-path design. Buses are located 
directly above the organelles in each bit slice. They are easily identifiable by the 
long polysilicon runs. 

One curious feature of MacPitts designs is the requirement for all connections 
from the pads to enter through the left side. This has far reaching implications. For 


example, a signal produced at the far right end in the data-path must be routed 
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Figure 20: Typical MacPitts data-path design 


across the entire data-path in polysilicon. For large circuits, polysilicon wires in 
excess of 1000A are produced. 

The data-path bus is produced by get-buses-from-data-path. This function 
calls on get-buses-from-unit-lists to collect all the participating bus terminals 
from the various data-path sources. “The list of sources include: internal Inputs. 
registers, multiplexers, output ports and organelles. The function that collects all 
the terminals with connections to pads is get-basic-buses-from-port-output- 
unit. This function uses the macro make-left-tip to insert the attribute ‘left’ to 
every port-output point. The left attribute causes the bus wire to extend from the 
internal connection to the left edge of data-path. If the macro make-right-tip 
were used instead, all data-path connections to the pads would take place through 


the right side. 


B. ROUTING BETWEEN DATA-PATH AND CONTROLLER 
MacPitts’ control section performs Boolean logic operations on various signals 

to generate signals that drive the multiplexers in the data-path. The controller logic 

is obtained by means of a NOR gate array called a Weinberger array. Weinberger 


arrays offer advantages such as a relatively compact structure and no need to cross 
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signal nets. The controller connects directly to all control signal pads, tri-state 
pads, clock super-buffers and data-path. 

Routing between data-path and controller, as well as between super-buffers and 
controller, is performed by a single layer river router with a non-optimal, but effec- 
tive, channel-width calculation routine. The routing layer used in nMOS technology 
is polysilicon. This choice simplifies the routing algorithm and reduces area re- 
quirements (due to its smaller width). Unfortunately, when long wires are required, 
polysilicon’s high resistance can slow the circuit down significantly. 

On the positive side, the minimum feature size for polysilicon is less than that 
of metal, the only other practical alternative in nMOS technology. Each polysilicon 
track requires 4A units, compared to 7A units for metall. A track is the sum of 
the minimum layer width and the minimum spacing between layers, as specified 
by the Mead-Conway design rules. A second advantage, relevant only in nMOS, is 
that using polysilicon eliminates two poly-metal cuts per net. These cuts would be 
required to cross over the power and ground rails located along both river banks. 
Since each cut contributes an average capacitance of 9.6 x 107* pf/mil? (based on 
metal over poly capacitance of 0.6 x 107* in 44 nMOS technology [Ref. 1: Table 
4.5, pg. 135]), the use of polysilicon, particularly in small circuits, may result in 
superior performance. This is of no consequence in SCMOS where two metal layers 
are available. 

The problem with polysilicon is its relatively long signal propagation time de- 
lays. Polysilicon is approximately 100 times slower than metall [Ref. 1: Table 
4.7, pg.136]. As routing material, it can be used without appreciable circuit per- 
formance degradation as long as tr, < 7,, where 7, and 7, refer to routing wire 
delays and gate delays, respectively. Under normal conditions, this relation holds 
true for polysilicon wire of lengths less than 200A. Above 200A, degraded circuit 


performance resulting from signal routing can be expected. Unfortunately, routing 
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Figure 21: Typical MacPitts controller design. 


lengths greater than 200\ are common in routing from data-path to controller. In 
fact lengths in excess of 500A are found even in modest sized circuits. 

Regardless of the layer used, the single most significant problem with the data- 
path to controller router is its use of a single routing layer. This means that, since 
crossovers are not allowed in the routing area, the terminal order in the controller 
must correspond exactly to that of the data-path. This is a serious design constraint 
that results in large, slow controllers. A typical MacPitts controller is illustrated in 
Figure 21. Notice the long horizontal polysilicon runs used to interconnect sivials 
that interact with each other. Long runs could be avoided if the controller terminals 
were ordered to optimize the controller and not in response to the order of terminals 
in the data-path. Also, longer runs require more tracks, because less track sharing 
is possible. This increases the controller height and area. In summary, a one layer 


router has a negative impact on both controller performance and size. 
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In the process of laying out both the data-path and the controller, points with 
the ‘river’ attribute are created. A point is an Ld structure consisting of a point- 
name, x-coordinate, y-coordinate, layer and up to three attributes. L5 is the LISP- 
based layout language used by MacPitts. Attributes are keywords that either iden- 
tify a point to a process, or give qualitative position information about that point. 
In this instance, ‘river’ identifies all interconnections between data-path and con- 
troller that need to participate in the river routing process. 

The call to river originates in layout-object. Before calling river, layout- 
object first brings together all points that need to be interconnected into a net- 
list. It then formats this list as required by the river router. 

Net-list extraction 1s #eeUHEPTished by obtaining the desired information from 
larger lists. To this end, the variable top-part, which includes all details necessary to 
lay out both flags and data-path, and bottom-part, which contains the details to lay 
out the controller, are created. From these, the variables top-bank and bottom-bank 
are formed. They contain the x-coordinates, sorted in increasing order, of all points 
in top-part and bottom-part with the attribute ‘river’. By design, the :th element in 
top-bank corresponds to the ith element in bottom-bank. 

River is called in the following fashion: 

(river “NP 2 (wing-span bottom-part) top- bank bottom-bank) 

River input parameters are: layer, width, stretch, left and right. In nMOS technol- 
ogy the layer NP indicates polysilicon. The width is 2\, the minimum polysilicon 
width allowed by design rules. Stretch will be discussed momentarily. Left and right 
correspond to top-bank and bottom-bank, respectively. This change in names, top to 
left and bottom to right, reflects an actual change of orientation that occurs while 
in river. The original orientation is recovered by rotating the output list, river- 


layout, clockwise before appending it to internal-layout. Internal-layout contains 


39 










left pad routing 


DATA-PATH 


CONTROLLER 


| a OES ee eee 


Figure 22: Wing layout 


everything — to produce a layout of the circuit body: top-part, bottom-part, 
wing-layout river-layout and skeleton. 

Stretch represents the height of wing-layout. The name reminds us how far each 
net must ‘stretch’ past the bottom river-bank to reach its terminal on the controller. 
It is determined by calling on wing-span with bottom-part as an argument. Wing- 
span extracts all points with the ‘wing’ attribute from bottom-part. The attribute 
‘wing’ identifies those control signals from the controller that connect to pads. For 
each such point, wing-span increments stretch by 5. Finally, an additional 1A is 
tacked on to stretch. Why does wing-span require 5 between tracks while river 
needs only 4A? As illustrated in Figure 22, since each ‘wing’ net terminates on a 
poly-metal cut during pad routing, the extra 1\ is necessary to satisfy design rule 
requirements for 2\ separation between poly and poly-metal cuts in the left pad 
routing region. 

The river routing process is performed by river, riverl, river-span and river- 
spanl. As their names imply, river-span and river-spanl calculate the required 
river width to accomodate all nets. Although not an optimal algorithm, river-span 


usually finds optimal or near optimal solutions. River-span uses layer, space, left 


40 





Figure 23: Solution to river routing problem, (a) MacPitts solution, (b) optimal 
solution. | 


and right as parameters. It determines the number of tracks required in the channel 
by calculating the run-length — the maximum number of consecutive nets for which 
the x-coordinate of one bank is greater than that of the other. For example, a net- 
list can be described by ((1 12 16 29) (5 10 25 33)). The list enclosed in the first 
inner parentheses represents the net terminals on the top-bank, while the list in 
the second parentheses corresponds to net terminals on the bottom bank. For this 
net-list river-span returns a run-length value of 2 because this is the number of 
consecutive nets where the terminals on one bank are consistently either greater 
than or less than the terminals on the other bank. In this case the nets are (20 3()) 
— (40 50). The product of the run length and 4A, the minimum space required per 
polysilicon track, gives the span of the river. The algorithm is not optimal because 
it fails to recognize that nets which meet this condition and do not overlap can share 
the same track. This illustrated in Figure 23. MacPitts’ solution to the problem 
(Figure 23.a) uses two tracks. The optimal solution, shown in Figure 23.b requires 


only one track. 
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The real workhorse in the river router is riverl. To function, riverl needs 
the arguments used by river as well as span, where and flag. Span is the distance 
calculated by river-span. Where is the y-coordinate of the track which the net 
being routed is to use. Flag can take as values either “down”, “up” or “straight”. 
“Down” indicates routing in the downriver direction 7; > B;. “Up” indicates rout- 
ing upriver when B; > T;. “Straight” corresponds to routing across the river when 
T; = B;. Essentially, flag provides a means for the algorithm to ‘remember’ whether 
the previous routed net was routed upriver, downriver or straight across. Flag is 
important to determine the value of where during the next iteration. 

Riverl1 employs a simple and effective recursive routine to route all nets between 
left and right in the manner shown in Figure 23.a. Figure 23.b illustrates the same 
problem optimally routed. Since the nets are pre-sorted, applying the basic LISP 
function ‘car’ to both top and bottom-banks yields the terminals that need to be 
routed in the current net. Applying ‘cdr’ simultaneously to top-bank and bottom- 
bank exposes the next net. 

Riverl first compares the x-coordinates of the :th net by applying the operators 
=,>, and < to the z:th elements in left and right. The following listing illustrates 


all the possible cases. 
1. IF left, = right.? THEN 


* A single vertical polysilicon wire segment is laid out between net termi- 
nals. 


* flag =“sirargne 


2. IF left; > right,? AND 
- IF flag = ‘down’? THEN 
oe 


A vertical layer segment is laid down from data-path to where. 


* A horizontal layer is laid down from left to right. 


% 


A vertical layer is laid down from where to the controller terminal. 
where = where + (width + space). 
flag = ‘down’ 


% 


% 
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* A vertical layer segment is laid down from data-path to the first 
track. 


* A horizontal layer is laid down from left to right. 


* A vertical layer is laid down from the first track to the controller 


terminal. 


* where = where + (width + space). 


% 


flag = ‘down’ 


- IF flag = ‘up’? THEN 


* A vertical layer segment is laid down from data-path to where. 
* A horizontal layer is laid down from left to right. 

* A vertical layer is laid down from where to the controller terminal. 
* where = where — (width + space). 

* flag = ‘up’ 


- IF flag = ‘down’? THEN 


* A vertical layer segment is laid down from data- path to the last 
track. 


* A horizontal layer is laid down from left to right. 


% 


A vertical layer is laid down from the last track to the controller 
terminal. 


* where = where — (width + space). 
flag = ‘up’ 


% 


C. ROUTING TO PADS 

There are three phases to the process of routing from the circuit body to the 
pads. They are pad placement, net extraction and net layout. MacPitts’ approach 
to all three 1s very inefficient. There are three significant flaws with the layout 
method used by MacPitts. First, since all inputs into the circuit body must en- 


ter through the left side, extremely long routes and unecessarily wide channels are 


43 


formed. This problem is not caused by the pad router functions, but by the as- 
signment of the ‘left’ attribute by data-path, to all pad connections. A detailed 
explanation is given in section IIJ.A. Second, pad placement is only allowed on the 
top, right and bottom sides. If the pads do not fit, the chip is extended in length 
or width or both until all pads can be accomodated on those three sides. Finally, 
pad position is dependent on the pad number assigned by the user in the source 
file and nomen any optimizing algorithm. The combined effects of these problems 
are the large empty spaces usually found in circuits designed by MacPitts. This is 
illustrated in Figure 24. 

1. Pad Placement 

MacPitts’ pad placement algorithm lacks any ‘intelligence’ to improve either 
circuit performance or area utilization. The functions directly involved in this 
process are place-pins, extend-right and extend-top. 

Interestingly enough, place-pins is capable of placing pins on all four sides. 
It uses a four case conditional to assign pads with pin numbers less than number- 
pins-per-side to the top; it then assigns those pads with numbers less than twice 
numober- pins-per-sides to the right side; next, pin numbers less than three times 
number-pins-per-sides are assigned to the bottom. Any remaining pads are assigned 
to the left side. Pin numbers are assigned to pads in the circuit source file. 

Why then doesn’t MacPitts place pads on all four sides? Because number- 
pins-per-sides is calculated by dividing the total number of pads by three and then 
rounding the result up to the next integer. Thus, circuits with 16, 17 and 18 pads 
all yield 6 as a value for number-pins-per-side. By the time place-pins gets to the 
left side, there are no pads left to place. 

The functions extend-right and extend-top are used if the current circuit 
length or width is insufficient to accomodate the number of pins assigned to it. 


These functions are independent of each other, responding only to requirements 


44 


im 


= ne | 


Se eee 


as aise on Te 


a 
rs 
4 Can: * 
@: i 
_ ihe eres 
* 


Figure 24: Routing pads in MacPitts 
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set by number-pins-per-side. For example, an 18 pad circuit with a length that 
accomodates 10 pads and a width that fits only one will be extended by extend- 
top until the six pads required by number-pins-per-side fit on each side; a five-fold 
increase in area. The fact that the original dimensions can accomodate 22 pads 
is irrelevant. These extensions can have a drastic impact on the final chip size as 
demonstrated by this example and Figure 24. 

2. Net Extraction 

The functions directly involved in the extraction of nets are: extract-nets, 
extract-basic-nets, order-basic-nets, rotate-basic-nets, extract-subnets and 
extract-(side|-subnet. ’ All the data necessary to form net-lists can be found in 
the parameters pins-layout and internal-layout. Internal-layout contains every de- 
tail necessary to actually lay down the circuit body. Likewise, pins-layout contains 
everything needed to produce a layout of the pads. 

MacPitts starts the net extraction process by merging internal-layout to pins- 
layout. This list is then operated on by extract-basic-nets. This function serves 
two purposes. First, it makes a list of lists, with the inner lists containing all points 
with the same name. Second, it retains only those points with the attribute ‘ring’. 
The ring attribute identifies those terminals that participate in pad routing. To an 
input such as: 


(((1 1) 10 20 nil (nil nil nil)) ((port input (a 1)) 0 100 nil (ring left nil)) 
((port input (a 1)) 100 200 nil (ring right nil)) ((phic) 0 50 nil (nil left ring)) 
((phic) 100 200 nil (nil top ring))) 


‘Many functions in the net extraction and net layout business come in four flavors: top, right, 
bottom and left. For each function type all flavors operate in the same fashion. For clarity and 
brevity, the generic [side] will be inserted in place of the specific flavor whenever the clarity of the 
issue being discussed won’t suffer from the substitution. 
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extract-basic-nets returns the following lst: 


(((port input (a 1)) 0 100 nil (ring left nil)) 
(port input (a 1)) 100 200 nil (ring right nil))) 
((phic) 0 50 nil (nil left ring)) 

(phic) 100 200 nil (nil top ring)))) 


Next, each net in basic-nets is arranged in proper order by order-basic- 
nets. This is accomplished by sorting each net with respect to an operator supplied 
by basic-net-point-furt her-left?. This function examines the attributes of each 
of the two points and supplies the correct sorting criteria to handle the specific 
problem. For example, given the net: 

(((phic) 0 50 nil (nil left ring)) ((phic) 100 200 nil (nil top ring))) 

the operator (< (point-y pointl) (point-y point2)) is supplied. In this case point-y 
of pointl and Bont? equal 50 and 200, respectively, so this net is already in the 
correct order. 

At this juncture each net consists of at least two ordered points. The nets 
are now processed by a rudimentary global router. It is rudimentary because, 
while it does assign routing regions to each net, it does so with httle emphasis on 
optimization. This global routing function is the responsibility of extract-subnets, 
extract-subnet and extract-[{side]-subnet. 

These functions work in a straightforward fashion. Remember that each net 
point may have up to three attributes. The set of allowable attributes depends on 
the operation that the point is destined for. For example, all points involved in 
pad routing have the attribute ‘ring’. A second attribute identifies the side where 
the point les and can take values of either ‘top’, ‘right’, ‘bottom’ or ‘left’. The 
third attribute gives additional position information and can take values of ‘first’, 
‘last’ or ‘mil’. Extract-subnet queries the first point of a net to determine which 
side it is on. It does this through the macros is-point-top?, is-point-right?, 


is-point-bottom? or is-point-left?. The net point must respond with true to 
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one of the four macros. That macro will in turn call extract-[side]-subnet, where 
[side] is the side in the point’s attribute list. For example, if the first point is on 
‘top’, extract-top-subnet is called. 

The various extract-[side|-subnet functions supply points necessary to al- 
low continuous routing of a net from source to target. Continuity cannot be guaran- 
teed for a two point net. The net called (port input (a 1)) of the previous example 
illustrates this point. One point lies on the right side and the other on the left. To 
connect them, extract-[{side|-subnet must generate four new points. Two direc- 
tions are possible; either through the ‘top’ or the ‘bottom’. Assume that in this 
instance the top is a shorter route and is therefore selected. The new net is now: 
(((port input (a 1)) nil 0 100 (ring left nil)) 

((port input (a 1)) nil 100 200 (ring right nil)) 
((port input (a 1) nil nil nil (ring left last)) 
((port input (a 1)) nil nil nil (ring top first )) 
((port input (a 1)) nil nil nil (ring top last)) 
((port input (a 1)) nil nil nil (ring right last))) 

If the original two points were on a different set of sides than the example 
above, a different set of points would be created. The process, however, remains 
the same. 

Extract-subnets can operate on nets with more than two terminals on one 
or more sides. This is possible because extract-[side|-subnet determines the side 
of the next point in its original net, and calls on the corresponding extract-([side]- 
subnet. The process continues until all points in the net have been examined. This 
capability 1s used in routing the control signal that places tri-state pads in either 
the high or low impedance mode. 

The final phase in the extraction process is the allocation of a track to each 
net segment. While MacPitts’ track allocation algorithm optimizes the channel 


width, its inability to consider anything but the current channel results in a less 


than optimal overall layout. It lacks the intelligence to assign tracks to nets so 
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that cuts and poly bridges are not required at the channel corners and between 
pad-terminals and their tracks. 
3. Net Layout 

The output from the net extraction process is called nets. It is used by 
layout-nets, layout-[side]-net and layout-[side]-point to perform the detailed 
routing. The pad router uses two layers, metall and polysilicon to route the nets. 
Metall is the preferred layer due to its superior performance characteristics. Polysil- 
icon is always used along with two poly-metal cuts to cross-over metal interferences 
from either power/ground metal1 lines or other nets. Henceforth, this structure wil! 
be referred to as a poly-bridge. 

Layout-nets is inefficient code. It will insert poly-bridges at the pad ter- 
minals and at the corners between routing areas even when this costly structure is 
not required. This is illustrated in Figure 24. Notice how a poly-bridge is used in 
connecting segments at the top-right corner when continuous routing in metall is 
possible. In other words, the algorithm always routes for the worst case. 

Layout-nets routes one net at a time. To assemble a layout it considers 
three variables: the side of the current segment, its endpoints and the location of 
the power and ground pads. 

The side where the current point is located is found by use of the macros 
is-point-[side]?. A ‘true’ condition is returned for the macro whose [side] matches 
the side attribute of the point being investigated. Consequently, layout-[side]- 
nets, where [side] is the same as the side in the point attribute list, is called with 
the net, to which the point Belongs aS an argument. 

In addition to net, the parameters top, right, skip and power are also used by 
layout-[side]-net. Top and right are the width and length dimensions of the circuit 
body. They correspond to ertended-top and ertended-right in Figure 25. Skip is the 


x-coordinate of either the power or ground terminal, whichever is on the same side 
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as the net point in question. If neither power nor ground is on the point’s side, then 
skip is given nil as a value. Finally, power is the width of the metal wire connecting 
ground or power to the power/ground skeleton. Skip and power are used to position 
poly-bridges and allow nets to cross-over power/ground wires. 

In laying out a net segment, layout-[side]-net considers all the points of a 
net lying on that [side]. The function calculates the coordinates necessary to extend 
the layer from one point to the other. The actual instrument used to lay out the 
wire is the LS function rect. As the name suggests, rect defines the boundaries 
of a rectangle in a specified layer. Its arguments are: layer, z-min, y-min, z-maz 
and y-maz. Information gleaned from the attributes (‘first’, ‘last’ or ‘nil’), the track 
number assigned to each side of a net by allocate-tracks, and the design rule 
specifications are used to determine the value of the arguments used by rect. 

Layout-{side]-net determines the segment endpoints from position attributes 
of the net points on that side. It uses the macros is-point-first? and is-point- 
last? to ascertain if either ‘first’ or ‘last’ occur in the point attribute list. If the 
attribute 1s ‘first’, while operating on either the bottom or top sides, then a value of 
2 is assigned to z-min. If operating on either the left or right side, then y-maz takes 
the value top. If the attribute were ‘last’ then z-maz is given (right — 2) for a value 
when operating on either the top or bottom sides, or y-min = 0 when on the left 
or right sides. If neither ‘first’ nor ‘last’ is in the attribute list, then the point must 
be either a pad or an internal terminal. The correct endpoint is obtained by using 
either the macro point-x when routing on the top or bottom sides, or point-y 
when routing on the left or right sides. 

The method described in the previous paragraph finds the segment endpoints 
along the routing channel. How are coordinates specifying the segment’s location 
across the channel obtained? The location of the routing channels on the chip is 


known. The lower-left corner of the circuit body lies on the point given by the 
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Cartesian coordinates (0,0). The top-right corner, on the other hand lies on the 
point (right, top). These two points define a rectangular reference frame which is 
simultaneously the exterior boundary to the circuit body and the inner boundary 
to the routing areas. The tracks are evenly spaced concentric circles, starting with 
track number 1 near the inner boundary. The space between tracks and the width of 
each wire is obtained from the design rules. With this information, layout-[side]- 
net is able to obtain the missing y-axis ae when routing on either top or bottom 
sides, or x-axis values when routing on either right or left sides. 

So far, the pad routing area has been visualized as four disjoint rectangles 
surrounding a circuit body. Actually, the routing area is a rectangular ring consist- 
ing of four disjoint rectangular areas and four small, square areas connecting them 
at the corners. The interconnection of net segments at the ring corners is done by 
layout-[side]-point. 

Layout-[side]-net calls on layout-[side]-point, where in both cases |side| 
is the same as the side of the net segment being operated on. Layout-[side]-point 
considers three questions to determine the correct layout: which corner? from which 
track? and to which track? The answer to the first question hinges on whether the 
point has an attribute of ‘first’ or ‘last’. For example, if currently in layout-top- 
net with ‘first’ as an attribute, then layout-top-point is called with “left” as a 
parameter; meaning, connect top and left segments. Likewise, the attribute ‘last’ 
calls on layout-top-point with the parameter “right”, indicating a connection at 
the top-right corner. The current point track number is obtained with the macro 
net-track-number. The track number of the point it connects to is obtained with 
the macros lnctenoineaaeieelllll or first-point-track-number. With this 
information, layout-[side]-point is able to connect two net segments as shown 
in Figure 26. Notice that regardless of the need for a poly-bridge, one is always 


created. 
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Figure 26 


D. SUMMARY 

MacPitts’ routing methodologies are very inefficient. The choice of a one-layer 
river router to interconnect data-path and controllers is unfortunate because it 
forces a terminal ordering in the controller that usually results in non-optimal con- 
troller designs. Polysilicon is not an adequate layer to employ in the river router 
because of the long distances involved. Significant transmission delays result even 
when wiring small circuits (less than 500 transistors). 

The pad routing algorithm is also deficient. Pads are evenly divided and placed 
on the top, right and bottom sides. Pads are never located on the left side. If any 
one side cannot accomodate its pad quota, it is extended until it can. No attempt 
is made to determine if the other two sides can accomodate the “overflow”. The 
final placement is determined by an integer assigned to the pad by the designer in 
the source file. Pad 1 is located on the top-left, pad 2 is located immediately to the 
right of pad 1, etc. The last pad is located on the bottom-left (see Figure 24). No 
effort 1s made to place a pad near its internal connection terminal. 

Finally, it is possible to route the pad routing channels with one layer. However, 
since MacPitts does not coordinate track allocation between the four ring channels, 
polysilicon and poly-metal cuts are always used to connect net segments at each 


cormer. 
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IV. ROUTING IN THE MONTEREY SILICON COMPILER 


The inefficient circuit designs produced by MacPitts is exemplified by the 251 
transistor layout in Figure 27. This chip has dimensions of 1.78 mm and 1.74 
mm for a total area of 3.10 mm’. A circuit performing the same functions can be 
handcrafted into a much smaller design. Inefficiency can also be measured by per- 
formance. Large circuits tend to be slower because of increased routing distances. 
There are various reasons why MacPitts’ designs exhibit poor size and performance 
characteristics. This investigation has focused on the pad placement and routing 
algorithms. A detailed description of MacPitts methodology in this area was pre- 


sented in Chapter II]. From Figure 27 the following problems can be observed: 


1. All signals from the pads must enter the circuit body through the left side. 
As a consequence, long wires and wide routing channels are generated. 


2. No effort is made to minimize wire length by placing pads near their internal 
connection points. 


3. Even when sufficient space exists around the periphery to accommodate all 
pads, circuit dimensions may be increased if a side cannot accommodate its 
pad “quota”. The circuit in Figure 27 was extended in both the vertical and 
horizontal directions. This resulted in the large empty areas to the right and 
above the internal circuit body. 


4. Unnecessary use of polysilicon and vias resulting from an inadequate track 

allocation algorithm and the poor placement of the ground and power pads. 

The high resistivity of polysilicon and the high capacitance of vias degrade 
circuit performance. 

This chapter introduces a pad routing strategy tailored to the MacPitts circuit 

architecture. The algorithms are written in Franz Lisp and are included in Appendix 


B. As in previous chapters, the LISP functions used in the algorithms will be denoted 


by boldface fonts. Their arguments are denoted by italics. 
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Figure 27: Typical MacPitts circuit 
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A. DATA-PATH 

One of the more conspicuous and peculiar characteristics of circuits designed 
by MacPitts is that all signals from the pads must connect to the internal circuit 
through the left side. This behavior has a drastic adverse effect on circuit perfor- 
mance. Depending on the specific circuit geometry, circuit speeds may be halved. 
The worst possible scenario is depicted in Figure 27, where an output pad on the 
right side and very close to its internal connection point, must be routed clear across 
the chip to enter the circuit. From here it 1s routed, in polysilicon, across the entire 
data-path. A second ill effect is that channels become progressively more congested 
and wider than is necessary. The mechanism that results in such routing nightmares 
was discussed in Chapter III. 

The solution to this problem is simple and direct. As discussed in Chapter III, 
all nets must enter through the left side because the macro make-left-tip is used 
to attach the attribute ‘left’ to all data-path terminals that need to connect to the 
pads. Changing the macro to make-right-tip makes all such nets connect to the 
right side. Unfortunately the same relation does not apply with regards to the top 
and bottom sides, since the bus infrastructure available for routing signals in the 
horizontal direction, does not exist in the vertical direction. Consequently, it was 
decided to limit the accesibility of data-path to the right and left sides only. 

The ideal solution to the problem is to divide the data-path in half. Anything to 
the left of center should route to the left side. Conversely, anything to the right of 
center, should route to the right side. Since the exact length of the data-path is not 
known during the bus construction phase, this mechanism is not feasible. A useful 
indicator of distance that is available, however, is the number of units required by 
data-path. Since units are laid sequentially across the length of data-path, they 


provide a rough measure of data-path length. 


of 


The Monterey Silicon Compiler uses the unit number to determine if terminals 
within a unit that connect to pads should route either left or right. If the number of 
the unit being processed is less than half the number of total units, its terminals will 
route to the left, otherwise they route to the right. This capability was implemented 
by means of a two case conditional within get-basic-buses-from-port-output- 
unit. The function is included in Appendix B. Redesign of the circuit in Figure 27 
with the changes discussed in this section results in the circuit shown in Figure 28. 
Notice that pads can now enter the data- path through either the left or right sides. 
Much area is wasted in both circuits. The mechanism which determines the final 
chip size depends on pad placement and not on the changes introduced by the new 


version of get-basic-buses-from-port-output-unit. 


B. PAD ROUTING 

There are three parts to the new pad routing process: pad-placement, net ex- 
traction and net layout. The procedures exploit changes in the data-path routines 
that allow signals to enter through either the left or right sides. These changes are 
discussed in Chapter IV.A. Pads may be placed on two, three or all four sides. The 
number of sides ultimately used is determined by a chip area optimizing algorithm. 
Every effort is made to accommodate all pads into the space available. If the pads 
require more space than is available, the longest side of the chip is extended until 
all pads fit. By extending the longest side, the total increase in area is minimized. 
Finally, polysilicon and via usage has been drastically reduced by proper placement 
of the ground and power pads and by an efficient track allocation algorithm. 

The pad routing functions are in the file frame.l. They are invoked by a call 
to layout-pins in layout-object. Layout-pins produces the layout information 
that results in the pad ring shown in Figure 29. As in MacPitts, the final version 
of pins-layout is obtained by running layout-pins twice. This is necessary because 


the pad routing channel width requirements cannot be calculated until some idea of 
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Figure 28: Opening data-path on the left and right sides. 
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the pad positions is available. During the first run through layout-pins, widths of 
0 are used. The results from the first run are used by get-ring-width to calculate 
exact width requirements for the routing channels. These four values, representing 
the channels widths of the top, right, bottom and left routing regions, are stored in 
ring- width. 

Once pins-layout is produced, the net-extraction processes begins. The algo- 
rithm uses net information contained in internal-layout and pins-layout to build 
two net-lists. The first list, left-ring-nets includes all nets that enter the internal 
circuit through the left side. The second net-list, right-ring-nets corresponds to all 
nets that enter the circuit through the right side. 

The final phase performs the actual routing process. It too is divided into left 
and right sides. The left side uses left-ring-nets as an argument, while the right side 
uses right-ring-nets. Each side is further divided into three problems: routing from 
pads on the bottom, routing from pads on the side, and routing from pads on top. 
The routing process is initiated by a call to moat. 

1. Pad Placement 

The new pad placement strategy differs from the original MacPitts’ methods 
in two significant ways. First, it finds the order of net terminals in top-part and wing- 
span and builds a pad terminal list in the same order. Not only does this result in a 
reduction of the average distance between net terminals, it also simplifies the final 
routing. As discussed in Chapter 3, MacPitts builds the pad lists directly from the 
source file. It has no built-in optimization capability. Second, pads may be placed 
on two, three or four sides. The criterion for this decision is chip area reduction. 
In contrast, designs by MacPitts always use three sides for pad placement. 

The pad placement process is initiated by a call to arrange-pins from 
layout-pins. Arrange-pins is responsible for selecting the sides that pads are 


to be placed in. It does this by means of a three case conditional. The first option 


60 








: ee Wasa se ne 


Bi oem TR _ iw! 


oe he oe oe oe 


Figure 29: MacPitts’ pad ring. 
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considers if all pins can fit along the top and bottom sides. If not, the possibility 
of using top, bottom and either the right or left side is tested. If this strategy is 
inadequate, all four sides are used. 

Notice that, regardless of the placement approach, the top and bottom sides 
will always contain pads. There are two reasons why these two sides are “common 
denominators” in the pad placement schemes. First, as Figure 30 illustrates, the 
skeleton ground rail is only exposed to pads along the top boundary. This config- 
uration provides strong justification for placing the ground pad on the top. Since 
it is advisable to maintain ground and power pads distant from each other to avoid 
latch up problems, the power pad is best placed in the bottom. Once a side is 
extended to provide space for one pad, esi more pads on that same side results 
in no additional area requirements. 

A second reason for having the top and bottom sides as common denominators 
is that the top and bottom sides are usually longer than the right and bottom sides. 
Circuit growth in the horizontal direction is a function of processing complexity. 


Vertical growth, on the other hand, is a function of word length. 


Arrange-pins yields a list named pin-net of the following form: 


(4 ((((1 (signal input (reset))) (2 (on)) (3 (phia)) (4 (phib))) left) 
(((1 (phic)) (2 (ground))) top) 

(((1 (port input (a 1))) (2 (port output (c 1))) (3 (port input (a 0))) 
(4 (port output (c 0)))) right) 

(((1 


((1 (power))) bottom))) 


The first element of the list indicates the number of sides selected for pad 
placement and can be 2, 3, or 4. It must be followed by the same number of lists. 
Each list contains a list of pads and terminates with the side where the pads in that 
list are to be placed. Each pad is assigned a number. The product of this number 
and the pad width provides the pad position (x-coordinate when placing pads on 


top or bottom, y-coordinate otherwise). In this example, the leading 4 indicates 
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Figure 30: MacPitts’ power and ground frame 
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that the enclosed pad list consists of four lists. Each of these lists contains a list of 
pads and a side attribute. This attribute can take either top, left, bottom or right 
as a value. As their names suggest, attributes indicate the side where that list of 
pads is to be placed. Figure 31 illustrates the placement that results from the list 
in this example. 

Arrange-pins operates on pins, sorted-pins, extended-right and ezrtended- 
top. Pins is extracted from the circuit source file. It consists of a pad name and a 
pad number. Pad numbers are assigned by the user in the source file. Pzns is the 
only list that MacPitts uses to construct the pad layout. It provides no information 
with which to make intelligent placement decisions. The pzns list that corresponds 
to the previous example may take the following form: 


-_ 1) ((phia) 2) ((phib) 3) ((phic) 4) ((on) 5) ((signal input (reset )) 


((port input (a 0)) 7) ((port euro (a 0)) 8) ((port input (a 1)) 9) ((port 

output (c 1)) 10) ((power) 11)) 

The list Sorted-pins provides information that results in more effective pad 
placement. The list is created by extract-internal-nets operating on top-part 
and wing-layout. Top-part contains the exact position of those terminals in data- 
path that connect to pads. Wing-layout contains similar information with respect 
to terminals in the controller. Sorted-pins is made up of two lists. The first list 
identifies all internal terminals that connect through the left side. This includes 
all points in top-part with the attributes ‘ring’ and ‘left’, and every point in wing- 
layout. The second list contains all top-part points that have attributes ‘ring’ and 
‘right’. The attribute ‘ring’ is used to identify all points that participate in the 
pad routing process. The ‘left’ attribute indicates that the point is located on the 
left edge of data-path. The ‘right’ attribute indicates that the point is located on 


the right edge of data-path. These two lists are then sorted from the smallest to 
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Figure 31: Placing pads on four sides. 
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the greatest y-coordinate. This service is provided by sort-by-y. Arrange-pins 
dismantles the list sorted-pins into two lists. The first lst is assigned the name left. 
The second is given the name right. The sorted-pzns list corresponding to the left 


side of the example above is: 


(((reset ) (on)) 


The list corresponding to the right side is: 

((input (a 1)) (output (c 1)) (input (a 0)) (output (c 0)))) 

As the example shows, sorted-pins and pins are two very different lists. First, 
sorted-pins is missing a number of pads. In-fact, ground, power, phia, phib and phic 
are never present in sorted-pins. These pads are treated differently because, when 
routing is concerned, they do not interact with the internal circuit as other pads 
do. Ground and power connect to the skeleton, not the circuit body. The clock 
signals: phia, phib and phic, are unique in that, for any circuit, they may connect 
to either the right, and/or left sides. This provides some latitude in making the 
final pad lists. When on the left side, clock pads are always located between the 
wing-layout and top-part terminals. On the right side, they are always the bottom 
three terminals. Of the three, phia is always on the bottom, phib in the center and 
phic on top. Clock pads are appended one at a time to the shorter of the two lists 
in sorted-pins. Since the list lengths are revaluated after each insertion, all three 
pads need not always be connected to the same side. 

Pins and sorted-pins also differ in the structure of their list elements. A 
net referred to as (input (a 0)) in sorted-pins is called (port input (a 0)) in pans. 
The difference is that the elements in sorted-pins are net names. The elements in 
pins are pin names. Pin names not only identify signals names, they also identify 
the type of pad. In the example, the net name is (input (a 0)). The pad type is 


port input. Some other pad types include: tri-state, port output and i/o4. This 
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difference drives the requirement for pins in arrange-pins. Once the pin layout 
lists are formed in arrange-pins, order-pins is called to transform each partial 
pin name into the complete pad name. Order-pins finds each element of the layout 
list in pins and imports the missing name parts. 

When all pads can fit into the top and bottom sides pad-on-two-sides is 
called. This function uses four arguments: left, right, a list consisting of the clock 
pads, and the difference in the number of elements between left and right, to build 
a pad list that results in the placement of all pads on the top and bottom sides. It 
attempts to balance the number of pads in left and right by transferring clock pads 
to the shortest of the two. Finally, it appends the power pad to left, and appends 
ground to the right. Left is placed along the bottom, and right is placed along the 
top. Figure 32 illustrates the pad layout for this configuration. 

When three sides are required to accommodate all pads pad-on-three-sides 
is called. This function uses left, right and the clock pads to build a pad list that 
results in the placement of all pads on the top, bottom, and either the left or right 
sides. The clock pads are appended to the shorter list between left and right. When 
there are more pads in right than in left, the pads in left are placed along the bottom. 
Any remaining pads are placed on top. Pads in right are placed along the top and 
right sides. Any remaining pads in right are then placed along the bottom. 

Placement of pads on all four sides is directed by pads-on-four-sides. As in 
all previous cases, clock pads are afhxed to the shorter list between left and right, 
power is the first pad in left, and ground is the first pad in right. The algorithm 
starts with the left list. It assumes that the best solution is one that ensures that 
the left side is completely used. It does this by finding the difference between the 
number of pads that fit on the left side and the number of pads in left. If the 
difference is one or less, it positions power on the left corner of the bottom side, 


and all others on the left side. Otherwise, it divides the difference by two, and places 
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Figure 32: A circuit with pads on two sides. 
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this number of pads on the bottom, fills up the left side, and places the remainder 
on top. Pads in right are placed in a similar fashion. If the difference between the 
number of pads that fit on the right side and the number of pads in rzght is one or 
less, the ground pad is placed at the right corner of the top side. Otherwise, the 
difference is divided by two, and that number of pads, starting with ground, are 
placed on top, then the right side is filled, and finally, any excess is placed along 
the bottom. Figure 31 illustrates a circuit with pads on all four sides. 

In all pad placement schemes, ground is the first pad placed when routing 
right. It is always located on top. It serves as a boundary; pads to the left of 
ground connect to the left side of the circuit, while those to the right of ground 
attach to the right side of the circuit. In a similar fashion, power is the first pad 
placed when routing left. It is always on the bottom. It also serves as a boundary. 
To its right, all pads attach to the right side. To its left, pads connect to the left 
side of the circuit. This characteristic of the ground and power pads is exploited 
during net extraction. Placing ground and power pads in this fashion eliminates 
all occurrences of nets crossing over the power/ground pad to skeleton connecting 
wire. It reduces the number of vias and the amount of polysilicon required. 

2. Pad Layout 

Once pin-net is formed, pad layout is initiated by place-pins. The list pro- 
duced by place-pins is named pins-layout. This list contains the information re- 
quired to —. pad layouts such as the one illustrated in Figure 33. Place-pins 
peels one list from pin-net at a time and transfers it to place-pinsl. Place-pins1 
extracts the side where pads in that list are placed, the pad name and the pad 
number and forwards it, one pad at a time to place-pin. Place-pin uses the pad 
name, pad number and side information to determine the type of pad, its exact 


location, and its orientation. 
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Figure 33: Pins-layout 





Place-pin calls on layout-pad to identify the pad type from among the 


following list: 


power ground phia 
phib phic output4 
outputs input tri-state4 
tri-state8 1/04 1/08 


Once the pad type is determined, layout-pad calls on the appropriate func- 
tion that returns a list specifying the actual pad layout. These functions are defined 
in the file pads.l. The following call results in the description of the pad in Figure 
34: 


(layout-pad20b-input-pad power (input-pad- name pad) 
(input-pad-in-wire pad) szde) 


The function layout-pad20b-input-pad specifies the type of pad. In this 
case an input pad of type pad20b. A second type of pad class is rinout. A call to 
this type takes the form layout-rinout-input-pad. 

Layout-pad calls on the input-pad-name to label the pad with the name 
specified by the parameter pad, and input-pad-in-wire to label the point on the 
pad where the internal circuit must connect to. The parameter power is the width 
required by the pad-layout ground and power ring. 

To position the pad within pins-layout, place-pin uses provides the pin num- 
ber and side to the L5 function move. Move takes three arguments: item, x- 


distance and y-distance. To place a pin on the right side, place-pin calls: 


(move (rotccw (layout-pad pin power ’right)) 
right 
(* (pad-class-width) (1- pin-number))) 


In this example the pad to be moved is brought in by layout-pad and rotated 
counterclockwise by the L5 function rotccw. The pad is moved in the x-direction by 
the parameter right. This parameter is obtained by the function pins-dimensions 


and is the sum of eztended-right, the width of the right ring channel and the span 


. 
Watetatatgtalatgtatatattatabatytys new tatetatgtatgtgtetatatabatatgtatenatatgtseg ta tata tgtatataty lta tet 


2, is 
tee 
: RH 
aetaty 
aah 








apegtsee verge ate® ace FiO eC Ot See Se eee be oer ee DT a, Pot) Or 
eaertcnnees on otatatecate th tabaty eet ate t tatty tat RRARRH eG tytat ety fag ty? at! 


TENSE OS IOI PRONG TE CTCTS HGUGOPTOSE SCORE DSTAROLO x 


SS SOREL EE ROSES FE ERE ARR ERE CEE RERR ENE a aan 


SSeS 


ey 





ar.’ a° a's" ¢ ‘ 


RRR RS Piya gare ate a a gates a aly te 
otetatetetatata te cat totatetatatatatetele 


+ 














ee ee ae oe Ra ae 


SSS ERS: BEBESS 


264 = 





<> ~ 














RHEE § 
AL 
LEHR S 


a 
ateterse statgtee pees it yegage atatatet % Natatatettatatyt 
, lai 

















Wrertogafaraducetacetstcttalgratatstyigiyfatstanstatatat gta at" atts 
RERRHR RRNA RNA NANE AN ARAN NAR NA MBEAN RMN: MEN NR NN MeN 





< a -* i . 
* > ted 





t-pad 


Results from layout-pad20b-inpu 


ure 34 


2 
1g 


e 


| 


across the large power and ground rails that surround the internal layout. The pad 
is moved in the y-direction by the product of pad-class-width and pin-number—1. 
Pad-class-width has no arguments. It returns the width that corresponds to the 
pad type in question. For the pad20b class, this parameter is 128\. It is 100A for 
the rinout class. 

3. Net Extraction 

The purpose of the net extraction process is to build net-lists. A net-list 
specifies all terminal locations of a net. In the pad routing process, net extraction 
must identify net terminal locations in :nternal-layout and pins-layout. 

The net extraction functions in the Monterey Silicon Compiler exploit design 
characteristics, inherent to the Monterey silicon compiler, to simplify the algo- 
rithms. First, since the pads are ordered in the order that nets appear inside the 
circuit, once the first is found on both lists, the other nets fall out automatically. 
Second, pads that connect to the left side of the circuit are always left of the ground 
and power pads. Pads that connect to the right side of the circuit are always to the 
right of the power and ground pads. 

The net extraction process described here performs well when confronted with 
two terminal nets. It is not equipped to handle nets with three or more terminals. 
Multi-terminal nets occur when more than one tri-state pad is used in a circuit. 
The control signal used to change the impedance state of tri-state pads usually 
form a multi-terminal net. The Monterey pad router does not currently have this 
capability. 

Two net-lists are formed during net extraction. The first, given the name 
left-ring-nets, consists of nets that connect to the left side of the circuit. Right-ring- 
nets includes all nets that connect to the right side of the circuit. Since they are 


formed by almost identical processes, only left-ring-nets is discussed here. 
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Left-ring-nets is a list of two lists. The first list contains the y-coordinates of 
all the internal terminal points. This list is obtained by means of the functions sort- 
y and get-left-netsl in much the same way that was described in the extraction 
process that led to pad placement. Essentially, all those points in internal-layout 
with both the ‘left’ and ‘ring’ attributes are extracted, then sorted by increasing 
order of their y-coordinates. 

The second list contains coordinates for terminal points at Be pads. The 
values in this list are interpreted as follows: 


1. If value < 0, then the point is on the bottom side, and abs(value) = x- 
coordinate. 


INO 


. If value > extended-top, then the point is on the top side, and 
value — extended-top = x-coordinate. 


3. If 0 < value < extended-top, then the point is on either the left or right side 
and value = y-coordinate. 


These values are obtained by applying prep-pad-bank to pins-layout. Since 
the order of pads in pins-layout is derived from the order of terminals in internal- 
layout, the first element in the first list connects to the first element in the second, 
the second element in the first list corresponds to the second element of the second 
list, and so on. A circuit with extended-top = 100, and pads on the bottom, left 


and top that connect to the left side, could have the following left-pad-bank: 
((10 20 30 50 70) (-40 20 40 70 130)) 


Prep-pad-bank serves three functions. First, it finds the x-coordinates for 
both the ground and power pads. Second, it divides pins-layout into two lists. 
Pads to the left of the power and ground pads are packaged in a list and passed to 
left-pad-bank. Pads to the right of the power and ground pads are passed on to 
right-pad-bank. Both functions represent each pad into a single number. ‘This 
number is sufficient to locate the pad terminal. The terminal numbers are assigned 


as follows: 
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. If the pad is placed on the right or left side, netyag, =y-coordinategag . 


OY) 


. If the pad is placed on top, netpag, =ettended-top+x-coordinatepad,. 


3. If the pad is placed on the bottom, net,ag. = 0—x-coordinategagg.. 


4. Net Layout 


The goal of the net layout process is the interconnection of the net-lists con- 
structed during net extraction. Of course, this task must be performed within the 
framework of the design rules. The proposed net layout method is customized to 
the Monterey Silicon Compiler target architecture. It combines routing strategies 
found in the moat and river router. These routers were discussed in Chapter II.B.4 
and II.B.5. The Monterey Silicon Compiler pad router is designed to minimize 
polysilicon and via utilization in the routing channels. It does not guarantee the 
smallest possible channel width. The pad router 1s a river router with a river bed 
in the shape of a rectangular ring. The routing area is made up of four rectangular 
channels and the four square areas at the corners. The rectangular areas are located 
between the outer skeleton ground and power rails, and the interior boundary of 
the pad ground ring. Figure 35 illustrates the pad routing area. 

The differentiation between nets that connect to the left side of the circuit, 
and nets that connect to the right side is also observed by the net layout functions. 
The pad routing process is initiated by a call to moat. Moat has three arguments: 
left-ring-nets, right-ring-nets and ring-width. Ring-width is a list of four numbers. 
These numbers represent the ring channel widths for the top, right, bottom and left 
sides. The pad router functions use the macros top-width, right-width, bottom- 
width and left-width to access the desired value from ring-width. Moat has only 
one function, to direct the appropriate net-list to route-left-bottom ind route- 
right-bottom. Since route-left-bottom and route-right-bottom perform their 


functions in the same way, this discussion will be limited to the left instance only. 
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Figure 35: Pad routing area 
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The most complex type of pad routing problem that the Monterey compiler 
can be presented is shown in Figure 36.a. The routing area for this instance of left- 
ring-nets consists of the left portions of the bottom and top rectangular channels. 
the entire left channel, and the corner areas at each end of the left channel. The 
important parameters in this routing problem are the net-lists and the edges of 
the top and bottom boundaries of the left routing channel occurring at y = 0 and 
y =extended-top. The net-list is important because it identifies the terminals that 
need to be routed. The edges of the left channel are important because they identify 
the ring corners. 

During.the discussion of routers in Chapter II, it was determined that the 
moat router is nothing more than a modified channel router. Since the net-lists are 
sorted, 1.e., the zth element of the terminals on the left side belongs to the same 
net as the zth element of the terminals on the right side, this routing problem can 
be solved with river routing techniques. The only issues to resolve are the track 
allocation problem and routing around the ring corners. These problems are solved 
simultaneously by the layout routines. 

Tracks must be allocated not only to minimize the occurrence of vias and 
polysilicon but to prevent shorts caused by overlapping different nets. The track 
allocation method used is essentially that used by the MacPitt’s river router and 
discussed in Chapter IJI.B. A differentiation is made between nets that are routed 
up-river (the y-coordinate of the internal terminal is greater than the y-coordinate of 
the pad terminal), nets routed down-river (the y-coordinate of the internal terminal 
is less than the y-coordinate of the pad terminal), and nets routed across river (y- 
coordinate of both terminals are equal). Picturing the routing area as divided into 
a number of concentric tracks, for each consecutive net routed up-river the assigned 
track is incremented by one. That is, the first net routed up- river is assigned to 


track 1, the second to track 2, and so on. When either a down-river or across river 
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Figure 36: Sample routing problem: (a) routing by Monterey silicon compiler, (b 
errors caused by change in routing direction 
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situation occurs, the track counter is reset to one. The same method is used to 
assign tracks to consecutive nets routed down-river. In this instance, however, it 
is an up-river or across river net that resets the track counter to one. Every time 
an across river situation occurs the track counter is reset. Once a net is assigned a 
channel it remains in that channel until it reaches its destination. 

Tracks must be allocated to prevent interference when routing subsequent 
nets. The algorithm routes the lowest net first, using route-left-bottom. After all 
nets with pad terminals on the bottom are routed, what remains of left-ring-nets 1s 
passed to route-left-side. Route-left-bottom recognizes pad terminals from the 
bottom side because their net values are less than zero. Finally, if any nets exist 
with net coordinates greater than eztended-top, they are passed to route-left-top 
for routing. 

If the track allocation method were used as described above, all consecutive 
down-river nets would interfere with each other. This is illustrated in Figure 36.b. 
This problem is avoided by reversing the track number order between up-river 
and down-river nets. For up-river nets track assignment starts with the innermost 
net and grows outward. For down-river nets track assignment originates with the 
outermost track and proceeds inward. With this modification, the track allocation 
method described in the previous paragraph yields the channel of Figure 36.a. 

The track that a net is to occupy is determined by the parameter track. 
When routing nets with pads on the bottom, route-left-bottom increments this 
parameter by one for each net it routes. This simplification is possible because 
pads on the bottom always route up-river. In a similar fashion, nets routed by 
route-left-top always route down-river. 

When routing nets with pads on the sides any of the three routing directions 
may occur. The direction in which the last net was routed is preserved by means 


of flag. This parameter may take one of three values: ‘down’, ‘up’, or ‘straight’. 
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Route-left-side determines whether to update or reset the track counter by ob- 
serving the state of flag, and by the routing direction of the current net being routed. 


The possible outcomes are: 
e If current net is straight THEN track = 1 
e If current net is down-river THEN 


— lf flag =Strargiver flag= up THE race 


— If flag = down THEN track = track +1 
e If current net is up-river THEN 


— lf flag = stravghtor flag=down THENGaeen — | 


— If flag= up THEN track = track +1 


Routing around the corners is very simple. The algorithms treat corners as 
simple extensions of the regular rectangular routing areas. As Figure 37 shows, the 
net must penetrate into the corner until it reaches the square’s diagonal that best 
aligns with a radial extending from the center of the circuit. In the corner shown in 
Figure 37, the left bottom corner is simulated by setting the reference point (0,0) 
at the top-right corner of the square. The values for both z-min and y-min are 
both the negative of the product between the track occupied by the net and the 
track width. The track width is the sum of the technology dependent parameters 
space and width. The track number is the parameter track. The z-maz and y-maz 
parameters needed to establish the wire ‘ieee can be obtained from z-min, 


y-min, width and the net terminal coordinates. 
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Figure 37: Routing the corners 


B. SUMMARY 

The pad router developed for the Monterey Silicon Compiler outperforms the 
original MacPitts pad router in all respects. It requires less area, reduces wire 
lengths and minimizes the usage of polysilicon and vias. These across-the-board 
improvements are possible due drastic changes in the pad placement algorithms, 
and the new capability to enter the circuit body through either the left or right 


sides. 
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V. RESULES 


A. MONTEREY SILICON COMPILER ENVIRONMENT 

The functions discussed in Chapter IV and included in Appendix B were inserted 
in the Monterey ISI workstation environment developed by J. Harmon [Ref. 19]. 
This environment allows MacPitts’ circuits to be viewed by MAGIC [Ref. 12]. 
Changes made by J. Harmon to organelles defined in data-path.] and organelles.!, 
permit error free extraction of files for simulation. The errors were caused by design 
rule incompatibilities between MacPitts and MAGIC. 


To design environment is created by issuing the following commands on an [SI 


workstation: 
Macpitts loads MacPitts environment 
include patches replaces MacPitts’ data-path.l, library 
and organelles.] with versions created by 
J. Harmon [Ref. 121 
include buses adds functions that allow connections to 


the right and left side of data-path 


include pad-router adds pad placement, net extraction and 
pad routing functions 


macpitts file-name begins circuit compilation 
B. RESULTS 
The new pad router was tested on four circuits. Both the MacPitts and Mon- 
terey version layouts are illustrated in Figures 38 - 45. Table 1 lists measurements 


for a number of significant parameters. This particular set of circuits was selected 


because of their wide range of sizes and internal structure. The source code used 
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to compile them is included in Appendix C. The first design, MEMORY, is a 2-bit 
latch with over 200 transistors. It was used extensively during the software devel- 
opment phase because of its small and simple design. TEST is a 3-bit incrementor 
with over 500 transistors. MULTIP4 is a 1200 transistor 4-bit multiplier designed 
by D. Carlson [Ref. 3]. Finally, TAXI was presented by Siskind, Southard and 
Crouch [Ref. 2] in the original MacPitts paper. It is a 1500 transistor, 8-bit taxi 
MEL er. 

Both MacPitts and Monterey silicon compiler designs were produced for each 
circuit. Testing consisted of ESIM [Ref. 12] and CRYSTAL [Ref. 12] simulations on 
both the MacPitts and Monterey versions of each circuit. ESIM is an event driven 
switch level simulator. It was used to verify the logical integrity of the Monterey 
designs. A successful test was one in which the results obtained from a Monterey 
design matched the results of the MacPitts version exactly. CRYSTAL performs 
timing analysis by measuring critical path transmission delays. 

ESIM results verified that the new pad router maintained the circuit’s logi- 
cal integrity. Results from Monterey compiler circuits matched those obtained by 
MacPitts’ circuits exactly with one exception. ESIM had difficulty simulating both 
the MacPitts and Monterey versions of TAXI when the circuit was fitted with tri- 
state pads. Each version produced different and incorrect results. 

Of the many parameters available for performance analysis, wire length, layer 
type, chip size, number of vias and critical path speed were selected because of their 
direct relation with the issues which this thesis undertook to investigate; reduction 
of total chip area and increased chip speeds. Chip size has been widely used as a 
measure of technology performance. J. Wyatt [Ref 20] demonstrated the contribu- 
tion that long wire lengths make to signal propagation delays. Table 2, obtained 
from [Ref. 1] shows that signal delays associated with polysilicon are 100 times the 


delays experienced with metall wires of equal length. 
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TABLE 1: STATISTICS FOR MACPITTS AND MONTEREY CHIP DESIGNS 


CIRCUIT PARAMETER MACPITTS MONTEREY sfonterey x 100) 
MEMORY 


length (mm) LwitS 
width (mm) 1.74 
area (mm)? san) 


no. vias 60 
wire length () ie <a 0- 
polysilicon () Brox 10" 
metall (py) 13.8 x 10° 
critical path (ns) 258 


length (mm) 201 2.04 
width (mm) less 1.86 
area (mm)? 4.70 3.79 
no. vias 69 10 
wire length (,) erie 107 3s < 10" 
polysilicon (,2) 9.95 x 10° 2.04 x 10° 
metall (2) WSIS 3< 7.69 x 10° 
critical path (ns) 671 604 


length (mm) 4.07 3.49 

width (mm) 2. fe 2.81 

area (mm)? 11.07 9.81 

no. vias OL 15 

wire length (1) 76.4x 10° | 38.0 x 10° 

polysilicon (1) 25.4 x 10° he << 10° 

metall (2) 51.0 x 10° 24.8 x 10° 
_critical path (ns) 1998 1864 

MULTIP4 

length (mm) 5.19 

width (mm) 2.40 

area (mm)? 12.46 

no. vias 104 

wire length (1) af20 10° 42.13 x 10° 

polysilicon (,2) 20.02 x 10° Peo 107 

metall (1) Sie 39.40 x 10° 

critical path (ns) 3061 2266 
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Figure 38: MEMORY circuit design by MacPitts 
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Figure 39: MEMORY circuit design by Monterey 
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Figure 40: TEST circuit design by MacPitts 
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Figure 41: TEST circuit design by Monterey 


89 


a 
if a . _ eee EE ee ee ee ————- 7ee i 
ih eee ate AS TE ieee Sa gees 5 vor 6 CE) oe 
sss i a Py 9 1 cebee 9 enh eee eesasen or-srg § ii 
“|, ‘ asa 2 Tes etal Dae ae Puen Bsc, 1; a a he RAC <2. rs ‘ rf j 
= si saeco meaner aremantaemtnyen 

[peer rhea Ke Le we al sae Ta ES ee a Larter sal leer #8. Fa cae + rth 

> © wo om. - wr. — eS I 2 ill aati = SEE = me ee eee eh RE EER IP 

FEMI FES “Toone ECM es.” eH OMNERPOMe gpm Te a ERO, 20 

—-= aS 8 wien Bas 


aeeen eo? a-are 028 a» apasioes 


o dhe atti a 


¢ 4 a — TT I Ny 
an ao > T4 =—s & 7 =i Sees 


<K«,.—_——< Vf 
i it a. a (ts litt Tee | : 
a ae =e i : > — at iG 


‘twee. = 
nis mee mn e aia wee 1 t peepee rT. wg Ty 


re @+..8¢e@ aa ei ae, Da —— cain ys D 
ze rms “= tecet=e- ee meee eat scaovers eres 
cue . he sumuds “ G* wena ,o 





Figure 42: MULTIP4 circuit design by MacPitts 
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Figure 43: MULTIP4 circuit design by Monterey 
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Figure 44: TAXI circuit design by MacPitts 
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Figure 45: TAXI circuit design by Monterey 
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1. Area 


The MacPitts pad router impacts on the final chip area in three ways: 


Circuit extension in either the horizontal and, or vertical direction if any of the 
three allowed pad placement sides cannot fit the number of pads indicated by 
number-pins-per-side. This is common in small circuits with limited placing 
space. This is the mechanism that produces the large empty areas in MacPitts’ 


version of MEMORY. 


Since all nets must be routed through the left side, net congestion produces 
wider routing channels. By necessity, the sum of tracks in the top and bottom 
channels must equal the number of pads (except for ground and power). 


Designs reserve space for pads on all four sides yet pads are placed on only 
three. This is illustrated in Figure 43 where a distance wide enough to ac- 
commodate pads is evident on the left side. 


The Monterey pad router solves the problems listed above. As a result, it 


will always produce smaller layouts than MacPitts. Specifically, the Monterey pad 


router will: 


le 


Place pads on 2, 3, or 4 sides to minimize area. If the number of pads do not 
fit around the circuit, the longest side is extended until they do. By extending 
the longest side, the total increase in area is minimized. 


Ability to enter data-path from both the left and right sides reduces net 
congestion on the left side and tends to reduce routing channel widths. 


The exterior pad power ring is collapsed on sides without pads. This is demon- 
strated on the right and left sides of Figure 44. 


These mechanisms interact to make all Monterey circuits smaller than their 


MacPitts counterparts. Best performance is obtained for small circuits, under the 


influence of the first mechanism. For such circuits, area reductions of 20% - 25% 


are common. Larger circuits exhibit area reductions in the 10% - 15% range. These 


circuits tend to place all their pads on the bottom and top sides. The third area 


reduction mechanism is most significant here since both the left and right pad power 


rings can be collapsed. 


2. Wire Length 


Wire length is a useful indicator to determine router effects on circuit speed. 


J. Wyatt [Ref. 20] describes the effect of interconnect on signal delays. The impact 
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Figure 46: MOS inverter circuit with fanout 


TABLE 2: GUIDELINES FOR IG- 
NORING RC WIRE DELAYS [Ref. 1: 
Table 4.7, pg. 136] 


Metal 


Silicide 
Polysilicon 
Diffusion 
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Figure 47: Bounds for the step response of the circuit in Figure 46. (a) Z = 0, (b) 
L = 100yp (Ref. 20: Fig. 11.2.24] 
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Figure 48: Bounds for the step response of the circuit in Figure 46. (a) L = 1mm, 
(b) L = 1cm [Ref. 20: Fig. 11.2.24] 
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of varying lengths of polysilicon on the circuit of Figure 46 1s shown in Figures 47 
and 48. Table 2 shows guidelines for ignoring RC wire delays. 

In this analysis, total wire length is the sum of all wires required to connect 
every net from their pads to their connection points in the data-path, controller or 
clocks. Thus, wires deep inside data-path may be considered in this measurement. 
This is necessary because even though these wires are not produced by the pad 
router, their lengths are definitely influenced by the modified pad placement and 
routing package. For example, the wire from pad C.2 in Figure 41 must connect 
to a point on the right edge of data-path. In MacPitts, this net is first routed 
around the circuit body to the left edge of data-path. From here, a long polysilicon 
wire 1s produced by the bus mechanism in data-path to make the final connection 
to the terminal near the right edge of data-path. A similar situation occurs with 
net RES.3 in Figure 43. The pad is approximately 0.3mm from its terminal inside 
data-path. MacPitts requires over 9mm, half of that in polysilicon, to complete the 
connection. 

As the values in Table 2 suggest, the layer used in routing is as important, 
if not more so, than wire length. To assist with the analysis, total wire lengths in 
polysilicon and metall were obtained. 

The Monterey compiler outperformed MacPitts in all circuits, ranging from 
a 6% improvement in TAXI, to a 43% improvement in MEMORY. Time delay 
reductions were most pronounced in those circuits with connection points at the far 
right of data-path. In routing these circuits (MEMORY, MULTIP4 and TEST1) 
MacPitts produces an extremely long polysilicon wire that spans across the data- 
path. In contrast, the Monterey silicon compiler accesses these points with a short 


polysilicon wire on the right edge of data-path. 
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3. Vias 





Vias, or polysilicon to metal cuts are undesirable from the standpoint of cir- 
cuit performance. The high capacitance associated with the metal to poly interface 
should be avoided where possible. A discussion of the via reduction issues in the 


Monterey silicon compiler was presented in Chapter IV. 
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VI. CONCLUSIONS 


A. SUMMARY 

This thesis has introduced a new and improved pad router for use by the Mon- 
terey silicon compiler to replace the router provided by the MacPitts silicon com- 
piler. The original MacPitts pad router suffered from a very inefficient pad place- 
ment and routing algorithms, as well as limitations in the ways signals could be 
routed to the data-path. The improved performance of the Monterey compiler 1s 


the result of: 


1. The ability to connect to data-path from either the left or right sides. MacPitts 
was allows connections to data-path on the left side only. 


2. The ability to place pads on 2, 3, or 4 sides. All circuits designed by MacPitts 
place pads on three sides. 


3. Minimize use of polysilicon and vias in the routing area. MacPitts requires 
up to 6 vias per net compared to one via per net in the Monterey compiler. 
The new router was tested with various circuits. Comparative analysis with 
MacPitts’ layouts showed that the Monterey router results in smaller and faster 
layouts for all circuits. Area improvement ranged from 5% to 20%. Small circuits 
tend to benefit most in area reduction. Large circuits show modest area improve- 
ments, primarily due to the collapse of the outer power ring on sides without pads. 
All Monterey routed designs performed faster than their MacPitts’ counterparts. 
The greatest improvement was in circuits requiring connections from pads to the - 
right side of the data-path. Since MacPitts access to the data-path from the left 
side only, it uses a long polysilicon wire to reach from the terminal inside data-path 
to the left edge of the circuit. This wire is not required by the Monterey compiler 


because it can access the terminal through either the left or right sides. 
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B. RECOMMENDATIONS 


The Monterey silicon compiler provdes fertile ground for continued study and 


development. The following recommendations should be considered for future thesis 


research: 


1. 


bo 


Significant speed improvements are possible in SCMOS technology by routing 
the long polysilicon wires produced by data-path and by the river router, 
between the data-path and the controller, with metall. 


The fixed floor plan used by MacPitts wastes area. This can be seen by the 
large empty spaces below the data-path, as well as the area to the right of the 
controller. A study should be undertaken to examine different cell placement 
strategies. A possible alternative is to allow the different cells (data-path, 
controller, flags and pads) to float until an optimal configuration is found. A 
channel router, in conjunction with a global router could be used to route the 
cells. 


. An alternative pad router should be developed to create designs that fit the 


various MOSIS standard chip frames. 
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APPENDIX A 
MACPITTS’ FUNCTIONS 


This Appendix contains those functions in MacPitts that have a role in pact 
placement and routing. The first function, get-basic-buses-from-port-outputut- 
unit is found in the general.! file. All other functions are in frame.l. 


ee rayout routines 


(def get-basic-buses-from-port-output-unit 
(lambda (number-of-units tail unit unit-number) 
(update-basic~-buses 
(update-basic-buses 
tail 
(make-port-output-id (port-output-unit-name unit)) 
(make-left-tip)))) 
(make-port-output-id (port-output-unit-name unit) ) 
(make-output-tip unit-number) ) )) 


(declare (special gates top-part)) 


(def layout-object 
(lambda (object) 

(prog (definitions flags data-path control pins gates straps 
conductivity power data-path-length control-length 
flags-length top-width bottom-width data-path-layout 
control-layout flags-layout river-layout wing-layout 
skeleton-layout internal-layout pins-layout ring-layout 
layout nets ring-width top=part bottom-part top-bank 
bOrromebank TiVer-Widem betLom-part-niver-—points 
intended-right intended-top extended-right extended-top) 

(setq definitions (object-definitions object)) 
(setq flags (object~-flags object)) 
(setq data-path (object-data-path object)) 
(setq control (object-control object) ) 
(setq pins (object-pins object)) 
Cherald "“Extruding gates") 
(setq gates (extrude-gates control flags)) 
(statistic (concat "Control has " (length gates) " columns")) 
(cond ((member? ’opt-c option-list) 
(setq gates 
(nthelem-list 
(order (extrude-basic-straps gates) 
gates 
(count (length gates)) 
(function junction-gate-number) 
(lambda (basic-strap) basic-strap) 
(lambda (gatel gate2) 
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(gate-before? gatel gate2 gates)) 
(lambda (gatel gate2) 
(gate-after? gatel gate2 gates))) 
gates) ))) 
(setq gates (insert-nor-ground-lines gates) ) 
(herald "Extruding straps") 
(setq straps (extrude-straps gates)) 
( Staalse ae 
(Goncat 'Cirenit hace 
(slash-alpha 
(list (flags-transistor-count flags) 
(data-path-transistor-count data-path 
definitions) 
(control-transistor-count gates straps) 
(pins-transistor-count pins) ) 
0 
Cfunctaon) 
(Vambdan(x) (+ (car x) Ccadr ye 
" transistors") ) 
(statistic 
(concat "Control has " 
(slash-alpha straps O (function max) 
(function strap-track-number) ) 
" traces») 
(setq conductivity (plus (data-path-conductivity 
data-path definitions) 
(control-conductivity gates straps) 
(flags-conductivity flags))) 
(setq power (conductivity-to-power-bus-width conductivity 11)) 
(statistic (concat "Power consumption is " 
(conductivity-to-power-consumption 
(plus conductivity 
(pins-conductivity pine) 
" Watts") ) 
(setq data-path-length 
(max (data-path-required-length data-path definitions) 
4)) 
(setq control-length (control-required-length gates) ) 
(setq flags-length (max (flags-required-length flags power) 
a) ) 
Csetq top-width (max (data-path-required-width 
data-path power definitions) 
(flags-required-width flags power) )) 
(setq bottom-width (control-required-width straps) ) 
(herald "Laying out data-path") 
(setq data-path-layout 
(layout-data-path data-path power top-width 
definitions) ) 
(herald "Laying out control") 
(setq control-layout 
(layout-control gates straps power bottom-width) ) 
(herald "Laying out flags") 
(setq flags-layout (layout-flags flags power top-width) ) 
(herald "Laying out river") 


(setq top-part 
(merge (move data-path-layout (+ power 3) 0) 
(move flags-layout 
(+ power 3 data-path-length 3 power 3) 0))) 
(setq bottom-part 
(move control-layout (+ power 3) (- power 4))) 
(setq bottom-part-river-points 
(find-attributes bottom-part ’(river))) 
(setq top-bank 
(sort (alpha (lambda (point) 
Coins tind topzpart 
(point-name point) ))) 
bottom-part-river-points) 
G@unction <9) 
(setq bottom-bank 
(sort (alpha (function point-x) 
bottom-part-river-points) 
Cuiltet one) 
(setq river-width 
(+ (river-span ’NP 2 top-bank bottom-bank) 
(wing-span bottom-part) 
(- 4 power) )) 
(setq intended-top 
(+ power bottom-width power river-width (driver-width) 
power top-width power 3 power) ) 
(setq intended-right 
(+ power 3 
(max control-length (+ data-path-length 3 power 
3 flags-length)) 
3 power) ) 
(setq river-layout 
(river ’NP 2 (wing-span bottom-part) top-bank bottom-bank) ) 
(herald "Laying out wing") 
(setq wing-layout 
(layout-wing (sort (find-attributes 
bottom-part ’ (wing) ) 
(flambda (point1 point2) 
(< (point-x point1) 
(Point—xepommt 2) ))))) 
(herald "Laying out skeleton") 
(setq skeleton-layout 
(layout-skeleton power intended-top intended-right 
data-path-length bottom-width river-width) ) 
(setq internal-layout 
(merge 
(move top-part 
O (+ power bottom-width power river-width 
(driver-width) power) ) 
bottom-part 
(move (rotcw river-layout) 
O (+ power bottom-width power river-width) ) 
(move wing-layout 0 (+ power bottom-width 4)) 
skeleton-layout) ) 
(herald "Laying out pins") 
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(setq pins-layout 
(layout-pins 
pins 
power 
intended-right 
intended-top 
(make-ring-width 0 0 0 0) 
(lookup-logo definitions) )) 
(setq extended-right (extend-right pins intended-right) ) 
(setq extended-top (extend-top pins intended-top) ) 
(setq ring-width 
(get-ring-width 
(merge internal-layout pins-layout) extended-right 
extended-top) ) 
(setq pins-layout 
(layout-pins 
pins 
power 
intended-right 
intended-top 
ring-width 
(lookup-logo definitions) )) 
(setq layout 
(first-quadrant (merge internal-layout pins-layout 
ring-layout) )) 
(statistic (concat "Dimensions are ' 
;;jh replaced minimum-feature-size with lambda-spacing. 
(quotient (times (right layout) 
(lambda-spacing) ) 
100000.0) 
(4 mm by 1? 
(quotient (times (top layout) 
(lambda-spacing) ) 
100000 .0) 
mm'' ) ) 
(return layout))))} 


(def wing-span 
(lambda (item) 
(1+ (* 5 (length (find-attributes item ’(wing))))))) 


(defsymbol layout-wing (points) 
(merge-list 


(alpha 

(lambda (point wing-number) 
(merge 
(rect ’NP 0 


(- (* 5 wing-number) 3) 

Ge (Porit— x spor ae) 

(- (* 5 wing-number) 1)) 
(rect 9NP (= (peint—-x=poinc a 

@) 

(+ (point=xepoine ae) 

(- (* 5 wing-number) 1)) 


104 


(mark (car (point-name point) ) 
0 
(- (* 5 wing-number) 2) 
INP ) 
(ring left inside)))) 
points 
(count (length points))))) 


Boelayout nets 


(declare (special nets right top power power-point ground-point)) (def 
layout-nets 
(lambda (nets right top power power-point ground-point) 
(merge-list 
(alpha (lambda (net) 
(layout-net net nets right top power power-point 
ground-point) ) 
nets)))) 


(declare (unspecial nets right top power 
power-point ground-point) ) 
(def layout-net 
(lambda (net nets right top power power-point ground-point) 
(cond ((is-point-top? (car (net-basic-net net))) 
(layout-top-net net nets right top 
(cond ((is-point-top? power-point) 
(point-x power-point) ) 
CGieSeommr- too ground-point ) 
(poimib=-x ground—poant )) 
(t O)) 
power) ) 
(Cis-point-right? (car (net-basic-net net))) 
(layout-right-net net nets right top 
(cond ((is-point-right? power-point) 
(point-y power-point) ) 
((is-point-right? ground-point) 
(point-y ground-point) ) 
(t O)) 
power) ) 
((is-point-bottom? (car (net-basic-net net))) 
(layout-bottom-net net nets right top 
(cond ((is-point-bottom? power-point) 
Geint= eepewer=po int ) ) 
((is=point—bot t oft? 
ground-point) 
(point-x ground-point) ) 
(t O)) 
power) ) 
(Cis-point-left? (car (net-basic-net net))) 
(layout-left-net net nets right top 
(cond ((is-point-left? power-point) 
(point-y power-point) ) 
CGis-peant-left? ground-point) 
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(point-y ground-point) ) 
Camo”)”) 
power))))) 


(declare (special nets right top track-number) ) 


(def layout-top-net 
(lambda (net nets right top skip power) 
(let ((basic-net (net-basic-net net) ) 
(track-number (net-track-number net))) 
(let ((left-x 
(cond ((is-point-first? (basic-net-left—point 
basic-net)) 2) 
(t (Cpoint-x (basic-net-left-point basic-net))))) 
(right. 
(cond ((is-point-last? (basic-net-riphtopoune 
basic-net) ) 
Cassels 2) ) 
(t sspoint-x (basic-net=ricght peu 
basic-net)))))) 
(merge 
(merge-list 
(alpha (lambda (point) 
(layout-top-point point nets right 
top track-number) ) 
basic-net) ) 
(cond 
(Cor (null skip) 
(< right=ee- skip (/@pe power 2)eoe 
(> left-x (+ skip (/up power 2) 3))) 
(rect ’NM left-x 
(+ top (* 7 track-number) -4) 
Ba ees x 
(+ top (* 7 track-number) ))) 
(t (merge 
(rect ’NM left-x 
(+ top :-(* 7 track-number) -4) 
(- skip (/up power 2) 3) 
(+ top (* 7 track-number) )) 
(rect ’NM (+ skip (/up power 2) 3) 
(+ top (* 7 track-number) -4) 
Tignes xX 
(+ top (* 7 track-number) )) 
(rect ’NP (- skip (/up power 2) 7) 
(+ top (* 7 track-number) -4) 
(+ skip (/up power 2) 7) 
(+ top (* 7 track-number) ) ) 
(move (poly-cut) (- skip (/up power 2) 7) 
(+ top (* 7 track-number) ) ) 
(move (poly-cut) (+ skip (/up power 2) 3) 
(+ top (* 7 track-number))))))))))) 


(declare (unspecial nets right top track-number) ) 
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(declare (special nets right top track-number) ) 


(def layout-right-net 
(lambda (net nets right top skip power) 
(let ((basic-net (net-basic-net net)) 
(track-number (net-track-number net) )) 
(let ((top-y 
(cond ((is-point-first? (basic-net-left-point 
basic-net)) top) 
(t (point-y (basic-net-left-point basic-net))))) 
(bottom-y 
CConcmaers-Doing-last, (basic-net-right-point 
basic-net)) 0) 
Ga ootmeaveubasdc=-net-raght—-point 
basic-net)))))) 
(merge 
(merge-list 
(alpha (lambda (point) 
(layout-right-point point nets right 
top track- number) ) 
basic-net) ) 
(cond 
(Cor (null skip) 
CSioreme- skip /ipepowe: -2)mcc ) ) 
(> bottom-y (+ skip (/up power 2) 3))) 
(rect ’NM (+ right (* 7 track-number) -4) 


bottom-y 
(+ right (* 7 track-number) ) 
top-y)) 
(t (merge 
(rect ’NM (+ right (* 7 track-number) -4) 
bottom-y 


(+ right (* 7 track-number) ) 
(- skip (/up power 2) 3)) 
(rect ’NM (+ right (* 7 track-number) -4) 
(+ skip (/up power 2) 3) 
(+ right (* 7 track-number) ) 
top-y) 
(rect ’NP (+ right (* 7 track-number) -4) 
(- skip (/up power 2) 7) 
(+ right (* 7 track-number) ) 
(+ skip (/up power 2) 7)) 
(move (poly-cut) (+ right (* 7 track-number) ) 
Csekp Clipe power 2)°7)) 
(move (poly-cut) (+ right (* 7 track-number) ) 
(+ skip (/up power 2) 3)))))))))) 


(declare (unspecial nets right top track-number) ) 
(declare (special nets right top track-number) ) 
(def layout-bottom-net 


(lambda (net nets right top skip power) 
(let ((basic-net (net-basic-net net)) 


10% 


(track-number (net-track-number net) )) 
Wet: 1 Caaicaieies ac 
(cond ((Cis-point-first? (basic-net—-wett=poum: 
basic-net) ) 
(= right» 
(t (point-x (basic-net-left-=pommt basw@e=nct ope 
(Temas 
(cond ((is=point=dast? (Oaete-neteument-pomme 
bastc-ilem 2) 
(t (point-x (basic-mét-ripmt—point 
basic-net)))))) 
(merge 
(merge-list 
(alpha (lambda (point) 
(layout-bottom-point point nets right 
top track-number) ) 
basic-net) ) 
(cond 
(Cor (null skip) 
(< rPight-x (= skip \7/Upeee wer 2 mo” 
(> left-x (+ skip (/up power eZee 
(rect ’NM left-x 
(- (* 7 track-number) ) 
Tl 2 ieee 
(- 4 (* 7 track-number) ))) 
(t (merge | 
(Peet berm 
(- (* 7 track-number) ) 
(- skip (/up power 2) 3) 
(- 4 (* 7 track-number) )) 
(rect ’NM (+ skip (/up power 2) 3) 
(- (* 7 track-number) ) 
right-x 
(~ 4 (* 7 track-number) )) 
(rect ’NP (- skip (/upiipewere2 97) 
(- (* 7 track-number) ) 
(+ skip (/up power 2) 7) 
(- 4 (* 7 track-number) ) ) 
(move (poly-cut) (- skip (/up power 2) 7) 
(- 4 (* 7 track-number) )) 
(move (poly-cut) (+ skip (/up power 2) 3) 
(- 4 (* 7 track-number))))))))))) 


(declare (unspecial nets right top track-number) ) 
(declare (special nets right top track-number) ) 


(def layout-left-net 
(lambda (net nets right top skip power) 
(let ((basic-net (net-basic-net net)) 
(track-number (net-track-number net))) 
(let ((bottom-y 
(cond ((is-point=figst? (basPe-net—-wer tp poumt 
baswesnet) ) 0 
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Ceeeedtieay ee basic-net-left-point basic-net))))) 
ion=\ 
Gconem Gis-=point ase (basic-net-right-point 
basic-net)) top) 
(Ce (poinu—-y (basmeonetenioht-point 
basic-net)))))) 
(merge 
(merge-list 
(alpha (lambda (point) 
(layout-left-point point nets right 
top track-number) ) 
basic-net) ) 
(cond 
(Cor (null skip) 
Pepe een (/up power 2) 3)) 
(> bottom-y (+ skip (/up power 2) 3))) 
(rect ’NM (- (* 7 track-number) ) 


bottom-y 
(- 4 (* 7 track-number) ) 
top-y)) 
(t (merge 
(rect ’NM (- (* 7 track-number) ) 
bottom-y 


(- 4 (* 7 track-number) ) 
(- skip (/up power 2) 3)) 
(rect ’NM (- (* 7 track-number) ) 
(+ skip (/up power 2) 3) 
(- 4 (* 7 track-number) ) 
top-y) 
(rect ’NP (- (* 7 track-number) ) 
(- skip (/up power 2) 7) 
(- 4 (* 7 track-number) ) 
(+ skip (/up power 2) 7)) 
(move (poly-cut) (- 4 (* 7 track-number) ) 
(- skip (/up power 2) 7)) 
(move (poly-cut) (- 4 (* 7 track-number) ) 
(+ skip (/up power 2) 3)))))))))) 


(declare (unspecial nets right top track-number) ) 


(def layout-top-point 
(lambda (point nets right top track-number) 
(cond 
GG point wirst « point) 
(merge 
(move (poly-cut) (- (* 7 
(last-point-track-number 
(point-name point) ’left nets))) 
(+ top (* 7 track-number) )) 
(move (poly-cut) 0 
(+ top (* 7 track-number) ) ) 
(rect ’NP (- (* 7 
(last-point-track-number (point-name point) 
‘left nets))) 
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(+ top -4 (* 7 track-number) ) 
0 
(+ top (* 7 track-number))))) 
(Cis-point-last? point) 
(merge 
(move (poly-cut) (+ right -4 
(* 7 (first-point-track-number 
(point-name point) 
’right nets))) 
(+ top (* 7 track-number) )) 
(move (poly-cut) (- right 4) 
(+ top (* 7 track-number) )) 
(rect ’NP right 
(+ top -4 (* 7 track-number) ) 
COPY eee 
(x 7 (first-point-track-number 
(point-name point) ’right nets))) 
(+ top (* 7 track-number) )))) 
(t (merge 
(move (poly-cut) (= Gaeintu—x poame me 
(+ top (* 7 track-number) ) ) 
(rect "NP Gs pcan oot» 
(min (+ top (* 7 track-number)) (point-y point) ) 
(1+ (pointexmpoaniy 
(max (+ top (* 7 track-number) ) 
(point-yrpointe» )))))) 


(def layout-right—-peam 
(lambda (point nets right top track-number) 
(cond 
((is-point-first accu 
(rect ’NM (+ right (* 7 track-number) -4) 
Top 
(+ right (* 7 track-number) ) 
(+"top (* 7 (last-poant-imack-namber 
(point-name point) ’top nets))))) 
((is-point-lasy @avcrmne 
(rect ’NM (+ right (* 7 track-number) -4) 
(- (* 7 (first-point track “number 
(point-name point) ’bottom nets))) 
(+ right (* 7 track-number) ) 
0)) 
(t (merge 
(move (poly-cut) (+ right -4 (* 7 track-number) ) 
(FC po dit — yarworenny mec.) 
(rect ’NP (min (+ right -4 (* 7 track-number) ) 
Goren ee jst 8), 
ie ( ponmit = acetniia)) 
(max (+ right -4 (* 7 track-number)) 
(HOnite« pO ime” 
(i+ (point-y point)))))))) 


(def layout=bottom-noamm 
(lambda (point nets right top track-number) 


it) 


(cond 
CG lorries: poine, 
(merge 
(move (poly-cut) (+ right -4 
(+ 7 (last-point-track-number 
(point-name point) ’right nets))) 
(- 4 (* 7 track-number) )) 
(move (poly-cut) (- right 4) 
(- 4 (* 7 track-number) ) ) 
(rect ’NP (- right 4) 
(- (* 7 track-number)) 
(+ right (* 7 (last-point-track-number 
(point-name point) ’right nets))) 
(- 4 (* 7 track-number))))) 
@1s-point-last?’ point) 
(merge 
@ilewe @@poly-cut) (- (* 7 (first-point-track-number 
(point-name point) ’left nets))) 
(- 4 (* 7 track-number) )) 
mmove Cpoly-cut) 0 
(- 4 (* 7 track-number) ) ) 
Gcecte iP (GG. 7 e(first=point-tuack-number 
(point-name point) ’left nets))) 
(- (* 7 track-number) ) 
0 
(- 4 (* 7 track-number))))) 
(t (merge 
(Neves@poly-—-cit J (- (point-x point) 2) 
(- 4 (* 7 track-number) )) 
(Tectm lic (noimnt-x point) ) 
(min (point-y point) (- 4 (* 7 track-number) ) ) 
el (coin.u-x point) ) 
(max (point-y point) 
(- 4 (* 7 track-number))))))))) 


(def layout-left-point 
(lambda (point nets right top track-number) 
(cond 
(Gis-point-fizsm joint) 
(rect ’NM (- (* 7 track-number) ) 
(- (* 7 (last-point-track-number (point-name point) 
’bottom nets) )) 
(- 4 (* 7 track-number) ) 
0)) 
((is-point-last? point) 
(rect ’NM (- (* 7 track-number) ) 
top 
(- 4 (* 7 track-number) ) 
Garope(* () (firsuapoimuai. aek-number 
(point-name point) ’top nets))))) 
(t (merge 
(move (poly-cut) (- (* 7 track-number) ) 
(ha(peintay point) 2)) 
(rect ’NP (min (- (* 7 track-number)) (point-x point) ) 


Wl 


(1- (poant-y pore» 
(max (- (* 7 tmaek-number)) (point <spaane)) 
(1+ (point-y point)))))))) 


(declare (special net-name side) ) 


(def first-point-track-number 
(lambda (net-name side nets) 
(net-track-number 
(first -wiae 
nets 
() 
(lambda (net) 
(and (member? side (point-attributes 
(basic-net-left-point (net-basic-net net)))) 
(is-point-first? (basic-net-left-point (net-basic-net net))) 
(equal (point-name (basic-net-left-point 
(net-basic-net net))) 
net-name))))))) 


(declare (unspecial net-name side) ) 
(declare (special net-name side) ) 


(def last-point-track-number 
(lambda (net-name side nets) 
(net-track-number 
Gyierst—unac 
nets 
() 
(lambda (net) 
(and (member? side 
(point-attributes 
(basic-net-righie-perme 
(net-basic-net net)))) 
(is-point-last? (basicrunetzr 1 ontapoamn: 
(net-basic-net net))) 
(equal (point-name (basic-net-right-point 
(net-basic-net net) )) 
net-name))))))) 


(declare (unspecial net-name side) ) 


(def get-ring-width 
(lambda (item right top) 
(make-ring-width 
(* 7 (net-track-number 
(minmax (extract-nets item ’top right top) 
(lambda (neti net2) 
(> (net-track-number net1) 
(net-track-number net2)))))) 
(* 7 (net-track-number 
(minmax (extract-nets item ’right right top) 


2 


(lambda (neti net2) 
(> (net-track-number neti) 
(net-track-number net2)))))) 
(x 7 (net-track-number 
(minmax (extract-nets item ’bottom right top) 
(lambda (neti net2) 
(> (net-track-number neti) 
(net-track-number net2)))))) 
(* 7 (net-track-number 
(minmax (extract-nets item ’left right top) 
(Vamb@a (net! net 2) 
(> (net-track-number neti) 
(net-track-number net2))))))))) 


(declare (special side)) 


(def extract-nets 
(lambda (item side right top) 
(allocate-tracks 
Msen-that (Cextract-subnets 
(rotate-basic-nets 
(order-basic-nets (extract-basic-nets item)) 
aot Op) ) 
(lambda (basic-net) 
(member? side 
(point-attributes 
(Garebaslce-meu))))) 
oinctionsoacte—=neut-TeLt™-point ) 
unction Sasie-net-ryant—point ) 
(function basic-net-point-further-left?) 
(function basic-net-overlap?)))) 


(declare (unspecial side) ) 


(def extract-subnets 
(lambda (nets) 
feond 
Cull nets ©) 
(t (append (extract-subnet (car nets)) 
(extract-subnets (cdr nets))))))) 


(def extract-subnet 
(lambda (net) 
(let ((net-name (point-name (car net)))) 
Meond  ((Cnuleleme:)) ©) 
(Cis-point-top? (car net)) 
Cextract-top-subnet (list (car net)) () 
(cdr net) net-name) ) 
((isspeantonightr, (car net)) 
Cextract-right-subnet (list (car net)) () 
(cdr net) net-name) ) 
(Cis-point-bottom? (car net)) 
(extract-bottom-subnet (list (car net)) 
(cdr net) net-name) ) 


ig is: 


(Cis-point-left? (car net)) 
(extract=left-subnet est (careneL) ) =) 
(cdr net) net-name)))))) 


(def extract-top-subnet 
(lambda (subnet subnets net net~-name) 
(cond ((null net) (cons subnet subnets) ) 
((is-point-topemeeanenet) ) 
(extract-top-subnet 
(appendi subnet (car net)) subnets (cdr net) net-name) ) 
(Cis-point-right? (car net)) 
(extract-right-subnet 
(list (make-point net-name () () () ’ 


Gaigntet pes venine ep» 
(append 


(list (append1 subnet 
(make-point net-name () () () 


* (tepaliass rime) py 
subnets) 


net 

net-name) ) 
((is-point-bottom? (car net)) 
(extract-bottom-subnet 

(list (make-point net-name () () () 


 (bottommiinsts rime 
(append 7 


(list (appendi subnet 
(make-point net-name () () () 
’(top last ring))) 
(list (make-point net-name () () () 
Feit timot rine) 
(make-point net-name () () () 


(Tight astunine)» yp 
subnets) 


net 
net-name) ) 
((is-point-left? (car net)) 
(extract-left-subnet 
(list (make-point net-name () () () 
(left firstering»» 
(append 
(list (appendi subnet 
(make-point net-name () () () 
(top last ring))) 
(list (make-point net-name () () () 
 (rightetirst Gime) 
(make-point net-name () () () 
 Pigibe last Ging) ))) 
(list (make-point net-name () () () 
"MCboLGonetirst wane) 
(make-point net-name () () () 


(bot tems last» Laingap» ) 
subnets) 


net 


114 


net-name))))) 


(det, extract-rightesubnet 
(lambda (subnet subnets net net-name) 
(cond ((null net) (cons subnet subnets) ) 
((is-point-top? (car net)) 
(extract-top-subnet 
(list (make-point net-name () () () ’(top first ring))) 
(append 
(list (append1 subnet 
(make-point net-name () () () 
WGeuehielast ring) )) 
(list (make-point net-name () () () 
(bottom first ring) ) 
(make-point net-name () () () 
(bottom last ring) )) 
(list (make-point net-name () () () 
~“@lei Tirst ring)) 
(make-point net-name () () () 


Bente last ring) ) )) 
subnets) 


new 
net-name) ) 
(Cis-point-right? (car net)) 
(extract-right-subnet 
(appendi subnet (car net)) subnets (cdr net) net-name) ) 
((is-point-bottom? (car net)) 
(extract-bottom-subnet 
(list (make-point net-name () () () 
mDemtom first ring) )) 
(append 
Sten: 
(appendi subnet (make-point net-name () () () 


accent last ring) ))) 
subnets) 


net 
net-name) ) 
(Cis=posmi-—lefttm¢ear net)) 
(extract-left-subnet 
(list (make-point net-name () () () 
:  @eft first aimee 
(append 
(list (append1 subnet 
(make-point net-name () () () 
(might lasiteming))) 
(list (make-point net-name () () () 
 bemromerii st. Ting) ) 
(make-point net-name () () () 


(bottom last ring)))) 
subnets) 


net 
net-name))))) 


(def extract-bottom-subnet 


lS 


(lambda (subnet subnets net net-name) 

(cond ((null net) (Gens "subnet oupnenae. 
(Cis=point-top? = (eam sneuss 
(extract-top-subnet 


(list (make-point net-name () () () ’(top first ring))) 
(append 


(list 
(appendi subnet (make-point net-name () () () 


’(bottom last ring) )) 
(list (make-point net-name () () () 


(lofi finse ming) 
(make-point net-name () () () 


(left last ring)))) 
subnets) 


net 

net-name) ) 
(Cis-point-rightia (car met) 
(extract-right-subnet 

(list (make-point net-name () () () 


Maignt finsmenine py 
(append 


(lise 
(appendi subnet (make-point net-name () () () 


(bottom last ring) )) 
(list (make-point net-name () () () 


’ (Vetter irse= rine) ) 
(make-point net-name () () () 
’ leftaliast@rene 
(list (make-point net-name () () () 
“(top aeaist ring) ) 
(make-point net-name () () @) 


(top laser inc))y)) 
subnets) 


net 

net-name) ) 
((is-point-bottom? (car net)) 
Cextract-bottom-subnet 


(appendi subnet (car net)) subnets (cdr net) net~-name) ) 
((is-point-left? (car net)) 


(extract-left-subnet 
(list (make-point net-name () () () 


"(Veft figst sane y 
(append 


(list 
(appendi subnet 
(make-point net-name () () () 


Cottomalast rime) ))) 
subnets) 


net 
net-name) )))) 


(def extract-left-subnet 
(lambda (subnet subnets net net-name) 
(cond ((null net) Ceons subnet subnets 
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((is-point-top? (car net)) 

(extract-top-subnet | 
(list (make-point net-name () () () ’(top first ring) )) 
(append 

(list (appendi subnet 
(make-point net-name () () () 


(left last ring)))) 
subnets) 


rer 
net-name) ) 
(Gsepoime=night “(ear net) ) 
C(extract-right-subnet 
(list (make-point net-name () () () 
Gieiee tirst ring) )) 
(append 
(list (appendi subnet 
(make-point net-name () () () 
(left last ring))) 
(list (make-point net-name () () () 
AGropetarst ring) ) 
(make-point net-name () () () 


(top last ring)))) 
subnets) 


net 

net-name) ) 
(Cis-point-bottom? (car net)) 
Cextract-bottom-subnet 

(list (make-point net-name () () () 


A(ornonerirsterang))) 
(append 


(list (appendi subnet 
(make-point net-name () () () 
(left last ring))) 
(list (make-point net-name () () () 
Gomer ll stemne)) 
(make-point net-name () () () 
y(tommerast Lag) )) 
(list (make-point net-name () () () 
Vemenew nt irste ing ) ) 
(make-point net-name () () () 


(right last ring)))) 
subnets) 


net 
net-name) ) 
GG roller t. (car net) ) 
Cextract-left-subnet 
(append1 subnet (car net)) 
subnets (cdr net) net-name))))) 


(declare (special item) ) 


(def extract-basic-nets 
(lambda (item) 
(alpha (lambda (name) 


(such-that (find-all item name) 
(lambda (point) 
(member? ’ring (point-attributes point))))) 
(setify (alpha (function point-name) 
(find-attributes item ’(ring))))))) 


(declare (unspecial item) ) 


(def order-basic-nets 
(lambda (basic~-nets) 
(alpha (lambda (basic-net) 
(sort basic-net 
(finebion basic=net=point-furcher= lets” 
basic-nets) )) 


(declare (special right top)) 


(def rotate-basic-nets 
(lambda (basic-nets right top) 
(alpha (lambda (basic-net) 
(rotate basic-net 
(rotation-amount basic-net right top))) 
basic-nets) )) 


(declare (unspecial right top)) 


(def rotation-amount 
(lambda (basic-net right top) 
(cond ((or (null basic-net) (= (length basic-net) 1)) 0) 
(t (rotation secumn 
(rotation-amount1 basic~-net 
(car (last basic-net)) right top)))))) 


(def rotation-amounti 
(lambda (basic-net last right top) 
(let (Chead (make-rotation 
Q 
(basic-net-distance last 
(ean basic—net) 
right top)))) 
(cond 
((= (length basic-net) 1) head) 
(t (let (C(tail (Crotation-amounti1 (cdr basic-net) 
(car basic-net) right top))) 
(cond (€(> (Crotation-diasmence taal) 
(rotation-distance head) ) 
(make-rotation (1+ (rotation-count tail)) 
(rotatton-distamec tailone 
(t head)))))))) 


(dete baciicane: Tet po peamt 
(lambda (basic-net) 
(Cae basic-net))) 
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(gen Dasic—net -right—point 
(lambda (basic-net) 
eam llastebasic-net)))) 


Wier basic-net-point-further-left? 
(lambda (pointi1 point2) 
coon Gieepoint-rinst’ poiamti) (mot (is-point-first? point2))) 
@ere-point-laste pointi) ()) 
CGis=peimest Imoes point2) ()) 
CGia-point-last’ point?) +t) 
CCrs-polnt tops point) 
(< @eint-spernti) Cpoimt—-x point2))) 
((is-point-right? pointe.) 
(2mi@pcimt-y pointl) (point-y point2))) 
Giseroint=bottom?’ pointi) 
Gein -x*poanc i Gpoant-x point?) )) 
Cis=polni—-ler.? pownt 1) 
Cou potmt-y point!) Wpointey poilmei2)))))) 


(def basic-net-overlap? 
(lambda (basic-net left-point) 
lec ((right-point (basie-net-right-point basic-net))) 
Meond ((is-point-first? righitepotnt ) 
Gis-pointoimgst’ left-point)) 
(Giis=point-last? rightepoint) t) 
(Cie peimt-first?’ Veft-point) t) 
(Cis=peint-last? lleft=peant) ()) 
((is-=pem@nit-top? right-point) 
Cm ote rilemc-poink) (- (peint-x left-point) 7))) 
Set=-point-right? raght-point) 
(<“S(ommny tilent-poind) (+ (peant-y left=podnt) 7) )) 
eers-point-bottom? right-point) 
<< (reniax ree —-pointyemG (pcint=xeleft=point) 7))) 
SGis-point-left? rightepesins ) 
Ge eoint-y rightepeint) 
omgeorne-y letrt-point) 7))))))) 


(def basic-net-distance 
(lambda (point1 point2 right top) 
ber ((xi (pornmt=x pointl)») 

(y1 (poimt-y apo imide») 

Coz oan = point 2)) ) 

Gemoecint —yeeoint 2) )i) 

(cond 
G@s-poimt-tope point1) 
(cond 
CGlsSpemne copa) point?) 
(cond 

Ceci 62) eee, ||) ) 

(t (- (+ right might atep teophje(- x1 x2) )) 
CGlsspointe ache poinu2 —(t)(— milwrt xi) (- top y2))) 
(Cis-point-bottom? point2) 

Gar Gina arom (—wicht x2) )) 
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(Cis-point-left?"point2) (+ .¢=aeht xi) Stop scion eee 


(Cis-point-righte@aipo dames 
(cond (Cis-point-top? point2) (+ y1 waledien teyex2)) 
(Cis-point-rilght? poumer) 
(cond 
((-y1l v2) Gaya 
(t (- (+ right right top top) (=a oe 
(GCis-point-bottiiom? point2 me yl riper 2) 8» 
(Cis-point-left? point2) (+ yf rigmen72 > 
(Cis-peint—bottom? peat) 
(cond 
(Gis-point-top? point2) (taaNetopme2)) 


(Cis-point-Milight? point?) (+l *top sci ole ae 


(Cis-point-bettom? potntz) 
(cond 
(> X12) (eee 
(t (- (+ rilgheeright ep topy Gy x2mciee)> 
((is-point-left? point2) Geese 
(Cis-point-left? point1) 
(cond 
(C(is-peintetop? point2) (+ (— @apeyvie> 
((is=poant=-right? pounce 
(+ (- top y1) aight “(oatep 42) 
((is-point-bot tamempommue» 
(+ (- top yl) sgh cop (-"raeht x2) 
(Cis-point- lef ote pointe? 
(cond 
((< yl y2) (= se 


(t (- (+ right "Tight ep topye (729719) eae 


(def point-side 
(lambda (point) 

(cond ((is-point-top? point) "age 
(Cisspoimt-raght? point) "right 
(Cis-point-bottom? point) ~pemeem) 
(Cis-point-left? point eee ee 


(def point-value 
(lambda (point) 

(cond ((Cis-point-top? point) (poancespoumrc)» 
(Cis-point-right? point) (peoant-yapeine) 
((is-point-bottom? point) (poaneeepoume) 
(Gis-point-left? point )m(point-ym=pommnt) )))) 


(def is-point-inside? 
(lambda (point) 
(member? ’inside Gpeint-attributes point oo» 
P P 


(def is-point-outside? 
(lambda (point) 
(member? ’outside (point-attributes point)))) 


(def is-point-top? 
(lambda (point) 


(member? ’top (point-attributes point)))) 


(def is-point-bottom? 
(lambda (point) 
(member? ’bottom (point-attributes point)))) 


eer is-point-left? 
(lambda (point) 
(member? ’left (point-attributes point)))) 


et is-point-right? 
(lambda (point) 
(member? ’right (point-attributes point)))) 


Mier is-poimt-first? 
(lambda (point) 
(member? ’first (point-attributes point)))) 


Moet is-point-last? 
(lambda (point) 
(member? ’last (point-attributes point)))) 


melayout pins 


ler pins-conductivity 
(lambda (pins) 
(slash-alpha 
pins 
Che 
(function plus) 
(lambda (pin) (pad-conductivity (pin-pad pin)))))) 


(defsymbol layout-pins 
(pins power intended-right intended-top ring-width logo) 
(let ((pins-power 
(conductivity-to-power-bus-width 
(pins-conductivity pins) 
(pad-class-default-power-bus-width) ))) 
(let ((dimensions 
(pins-dimensions pins pins-power ring-width 
intended-right intended-top) ) ) 
(let ((top (dimensions-top dimensions) ) 
(right (dimensions-right dimensions) ) 
(bottom (dimensions-bottom dimensions) ) 
(left (dimensions-left dimensions) )) 
(let ((pins-layout (place-pins pins dimensions pins-power) )) 
(let ((power-point (find pins-layout ’ (power))) 
(ground-point (find pins-layout ’(ground)))) 
(merge (cond ((member? ’logo option-list) 
(move (first-quadrant 
(title logo ’NM ’nonie.r.10)) 
(+ left pins-power 3) 
(+ bottom pins-power 3))) 
Ce Chul ¢em) )) 


Zl 


pins layout 
(layout-power-ring pins-power power dimensions 
intended-right intended~-top 
power-point ground-point) 
(layout-ground-ring pins-power power dimensions 
intended-right intended-top 
power-point ground-point)))))))) 


(def layout-power-ring 
(lambda (pins-power power dimensions intended-right intended-top 
power-point ground-point) 
(let ((top (dimensions-top dimensions) ) 
(right (dimensions-right dimensions) ) 
(bottom (dimensions-bottom dimensions) ) 
(left (dimensions-left dimensions) )) 
(merge (rect ’NM left 
(- top pins-power) 
right 
top) 
(rect ’NM (- right pins-power) 
bottom 
right 
top) 
(rect ’NM left 
bottom 
right 
(+ bottom pins~power) ) 
(rect ’NM left 
bottom 
(+ left pins-power) 
top) 
(cond ((is-point-top? power-point) 
(warning "Power pin can not be on top 
Sides of “ease t))) 
(rect ’NM®(="(point=x power-poinw 
(/up power 2)) 
intended-top 
(+ (point=k power-point) 
(/up power 2)) 
(point-y power-point))) 
((is-point-right? power-point) 
(rect ’NM intended-right 
(= (peli Dover poumt)) 
(/up power 2)) 
(point-x power-point) 
(+" (poimt—y powerpoint) 
(/up power 2)))) 
(C(is-point-bottom? power-point) 
(rect "NM (- (Gpeint-x pemer point) 
(/up power 2)) 
(point-y power-point) 
(+ (point-x power-point) 
(/up power 2)) 
0)) 


((is-point-left? power-point) 
(rect ’NM (point-x power-point) 
(- (point-y power-point) 
(/up power 2)) 


(+ (point-y power-point) 
(/up power 2))))))))) 


(def layout-ground-ring 
(lambda (pins-power power dimensions intended-right intended-top 
power-point ground-point) 
(let ((offset (+ pins-power (pad-class-basic-height)))) 
(let ((top (- (dimensions-top dimensions) offset) ) 
(right (- (dimensions-right dimensions) offset) ) 
(bottom (+ (dimensions-bottom dimensions) offset) ) 
(left (+ (dimensions-left dimensions) offset))) 
(merge 
Keond (Cis-point-—top scround-point) 
(rect ’NM (- (point-x ground-point) (/up power 2)) 
intended-top 
Cerone -x gromnd-point) (/up power 2)) 
(roan yecmound-point ps) 
((is-point-right? ground-point) 
(warning “Ground pin must be on top side of circuit") 
(rect ’NM intended-right 
(Ge Gomnt-yecroumd=pcint) (/up power 2)) 
(point-x ground-point) 
(+ (point-y ground-point) (/up power 2)))) 
((is-point-bottom? ground-point) 
(rect ’NM (- (point-x ground-point) (/up power 2)) 
(peint-y ground=point) 
(+ (point-x ground-point) (/up power 2)) 
0)) 


CGls-pount-left? cround=point ) 
(rect ’NM (point-x ground-point) 
(- (point-y ground-point) (/up power 2)) 
0 
(+ (point-y ground-point) (/up power 2))))) 
(cond ((is-pointatopampower=point) 
(merge 
-(rect ’NM left 
(- top pins-power) 
(=eigocunt-x pewer-point) 
(/up (pad-class-width) 2)) 
top) 
(rect ’NM (+ (point-x power-point) 
(/up (pad-class-width) 2)) 
(- top pins-power) 
right 
copy) 
(rect ’NM (- right pins-power) 
bottom 
right 
top) 


(rect ’NM left 
bottom 
right 
(+ bottom pins-power) ) 
(rect ’NM left 
bottom 
(+ left pins-power) 
copy 
(CPS-point-right’ power=coune» 
(merge 
(rect ’NM left 
(- top pins-power) 
right 
top) 
(rect ’NM (- right pins-power) 
(+ (point-y power-point) 
(/up (pad-class-width) 2)) 
right 
top) 
(rect ’NM (- right pins-power) 
bottom 
ape -4eer 
(- (point-y power-point) 
(/up (pad-class-width) 2))) 
(rect ’NM left 
bottom. 
right 
(+ bottom pins-power) ) 
(rect ’NM left 
bottom 
(+ left pins-power) 
top) )e 
(Cis-point-bottom? power-point) 
(merge 
(rect ?NM ders 
(- top pins-power ) 
right 
top) 
(rect ’NM (- right pins-power) 
bottom 
right 
Top 
(rect ’NM (+ (point-x power-point) 
(/up (pad-class-width) 2)) 
bottom 
right 
(+ bottom pins-power) ) 
(rect ’NM left 
bottom 
(- (point-x power-point) 
(/up (pad-class-width) 2)) 
(+ bottom pins-power) ) 
(rect ’NM left 
bottom 








(+ left pins-power) 
Pomp) 
((is-point-left? power-point) 
(merge 
(rect ’NM left 
(- top pins-power) 
right 
top) 
(rect ’NM (- right pins-power) 
bottom 
right 
15ro}0)) 
(rect ’NM left 
bottom 
gah ealgae 
(+ bottom pins-power) ) 
(rect ’NM left 
bottom 
(+ left pins-power) 
(- (point-y power-point) 
(/up (pad-class-width) 2))) 
(rect ’NM left 
(+ (point-y power-point) 
(/up (pad-class-width) 2)) 
(+ left pins-power) 
top))))))))) 


(def extend-right 

(lambda (pins intended-right) 

(let ((maximum-number-pins-horizontally 
(/ intended-right (pad-class-width) )) 

(number-pins-per-side 
(/up (slash-alpha pins 0 (function max) 
(function pin-pin-number) ) 
3))) 


(cond 

((<= number-pins-per-side maximum-number-pins-horizontally) 

intended-right ) 

(t (* (pad-class-width) number-pins-per-side)))))) 


(def extend-top 
(lambda (pins intended-top) 
(let ((maximum-number-pins-vertically 
(/ intended-top (pad-class-width) )) 
(number-pins-per-side 
(/up (slash-alpha pins 0 (function max) 
(function pin-pin-number) ) 
3))) 


(cond 

((<= number-pins-per-side maximum-number-pins-vertically) 
intended-top) 

(t (* (pad-class-width) number-pins-per-side)))))) 


(def pins-dimensions 
(lambda (pins pins-power ring-width intended-right intended-top) 
(let ((maximum-number-pins-horizontally 
(/ intended-right (pad-class-width) )) 
(maximum-number-pins-vertically | 
- intendod Sage ings == ee 
number-pins-per-side 
(/up (slash-alpha pins 0 (function max) 
(function pin-pin-number) ) 
3))) 
(cond 
(Cand (<= number-pins-per-side 
maximum-number-pins-horizontally) 
(<= number-pins-per-side 
maximum-number-pins-vertically) ) 
(make-dimensions 
number-pins-per-side 
(+ intended-top (ring-width-top ring-width) 
(side-extension ’top pins number-pins-per-side 
pins-power) ) 
(+ intended-right (ring-width-right ring-width) 
(side-extension ’right pins number-pins-per-side 
pins-power) ) 
(- 0 (ring-width-bottom ring-width) 
(side-extension ’bottom pins number-pins-per-side 
pins-power) ) 
(- 0 (ring-width-lepe rane ouaac) 
(side-extension ’left pins number-pins-per-side 
pins-power)))) 
((<= number-pins-per-side maximum-number-pins-horizontally) 
(make-dimensions 
number-pins-per-side 
(+ (* (pad-class-width) number-pins-per-side) 
(ringewidth=topeasine=wacaine 
(side-extension ’top pins number-pins~-per-side 
pins~-power) ) 
(+ intended-right (ring-width-right ring-width) 
(side-extension ’right pins number-pins-per-side 
pins-power) ) 
(- 0 (ring-width-bottom ring-width) 
(side-extension ’bottom pins number-pins-per-side 
pins-power) ) 
(- 0 (ring-width-left ring-wadinhe 
(side-extension ’left pins number-pins-per-side 
pins-power)))) 
((<= number-pins-per-side maximum-number-pins-vertically) 
(make-dimensions 
number-pins-per-side 
(+ intended-top (ring-width-top ring-width) 
(side-extension ’top pins number-pins-per-side 
pins-power) ) 
(+ (* (pad-class-width) number-pins-per-side) 
(ring-widtheeiens Ting-wadin) 
(side-extension ’right pins number-pins-per-side 


ae 














pins-power) ) 
(- 0 (ring-width-bottom ring-width) 
(side-extension ’bottom pins number-pins-per-side 
pins-power) ) 
(Gyor Ging -widthslert mingawidth) 
(side-extension ’left pins number-pins-per-side 
pins-power) ))) 
(t 
(make-dimensions 
number-pins-per-side 
(+ (* (pad-class-width) number-pins-per-side) 
Gaing-vwidth—top ringewidth) 
(side-extension ’top pins number-pins-per-side 
pins-power) ) 
(+ (* (pad-class-width) number-pins-per-side) 
Concawictiahignt cing-width) 
(side-extension ’right pins number-pins-per-side 
pins-power) ) 
(= 0 
(ring-width-bottom ring-width) 
(side-extension ’bottom pins number-pins-per-side 
pins-power) ) 
a0 
(ring-width-left ring-width) 
(side-extension ’left pins number-pins-per-side 


pins-power)))))))) 


(def pin-height 
(lambda (pin power) 
(+ power 
(pad-class-basic-height) 
power 
(pad-basic-extension (pin-pad pin))))) 


(declare (special side number-pins-per-side power) ) 


(def side-extension 
(lambda (side pins number-pins-per-side power) 
(slash-alpha 
(such-that 
pins 
(lambda (pin) 
(cond 
(Ceq side ’top) 
(<= (pin-pin-number pin) number-pins-per-side) ) 
(Ceq side ’right) 
(and (> (pin-pin-number pin) number-pins-per-side) 
(<= (pin-pin-number pin) 
(* 2 number-pins-per-side) ))) 
(Ceq side ’bottom) 
(and (> (pin-pin-number pin) 
(+ 2 number-pins-per-side) ) 
(<= (pin-pin-number pin) 


Lee 


(+ 3 number-pins-per-side) ))) 
(C(eq side ’left) (> (pin-pin-number pin) 
(+ 3 number-pins-per-side) ))))) 
(+ power (pad-class-basic-height) power 3) 
(function max) 
(lambda (pin) (pin-height pin power))))) 


(declare (unspecial side number-pins-per-side power) ) 


(def place-pins 
(lambda (pins dimensions power) 
(cond ((null pins) (null-item)) 
(t (merge (place-pin (car pins) dimensions power) 
(place-pins (cdr pins) dimensions power)))))) 


(def place-pin 
(lambda (pin dimensions power) 
(let ((number-pins-per-side 
(dimensions-number-pins-per-side dimensions) ) 
(top (dimensions-top dimensions) ) 
(right (dimensions-right dimensions) ) 
(bottom (dimensions-bottom dimensions) ) 
(left (dimensions-left dimensions) ) 
(pin-number (pin-pin-number pin) )) 
(cond ((<= pin-number number-pins-per-side) 
(move (mirrorx (layout-pad (pin-pad pin) power ’top)) 
(* (pad-class-width) (1- pin-number) ) 
top)) 
((<= pin-number (* 2 number-pins-per-side) ) 
(move (rotccw (layout-pad (pin-pad pin) power ’right)) 
right 
(* (pad-class-width) 
(- (* 2 number-pins-per-side) pin-number) )) ) 
((<= pin-number (* 3 number-pins-per-side) ) 
(move (layout-pad (pin-pad pin) power ’bottom) 
(* (pad-class-width) 
(- (* 3 number-pins-per-side) pin-number) ) 
bottom) ) 
((<= pin-number (* 4 number-pins-per-side) ) 
(move (rotccw (mirrorx (layout-pad (pin-pad pin) 
power ’left))) 
left 
(* (pad-class-width) 
(- pin-number 
(* 3 number-pins-per-side) 1)))))))) 


(def /up 
(lambda (x y) 
(cond ((equal x (times y (fix (quotient x y)))) 
(fix (quotient x y))) 
(t (1+ (fix (aquetieny <=). peeP 


;;;the following routines must be changed when adding new pad 
classes 





(def pad-class 
;; 16 Apr 87 J Harmon made pad20b the default pad file for all 
;; Minimum feature sizes except 250 centimicrons. 
(lambda () 
(cond ((= (minimum-feature-size) 250) ’rinout) 
(t ?pad20b)))) 


(def pad-class-default-power-bus-width 
(lambda () 
(cond ((eq (pad-class) ’rinout) 16) 
(Ceq (pad-class) ’pad20b) 8)))) 


(def pad-class-basic-height 
(lambda () 
(cond ((eq (pad-class) ’rinout) 82) 
(Ceq (pad-class) ’pad20b) 112)))) 


(def pad-class-width 
(lambda () 
(cond ((eq (pad-class) ’rinout) 100) 
(Ceq (pad-class) ’pad20b) 128)))) 


fet pad-conductivity 
(lambda (pad) 
(cond ((eq (pad-class) ’rinout) 

(cond ((is-pad-blank? pad) 0.0) 
(Cis-pad-input? pad) 1.66666) 
((is-pad-output4? pad) 0.31250) 
GGle-ped-colltputee pad) 0.31250) 
(Cis-pad-tri-state4? pad) 0.15625) 
(Cis-pad-tri-state8? pad) 0.15625) 
((is-pad-i/o04? pad) 0.14285) 
((is-pad-i/o8? pad) 0.14285) 
(Cis-pad-power? pad) 0.0) 
((is-pad-ground? pad) 0.0) 
(Cis-pad-phia? pad) 1.66666) 
((is-pad-phib? pad) 1.66666) 
(Cis-pad-phic? pad) 1.66666))) 

(Ceq (pad-class) ’pad20b) 

(cond ((is-pad-blank? pad) 0.0) 
(Cis-pad-input? pad) 1.66666) 
CGis=pad—cut put4@ pad) 0731250) 
(Cis-pad-output8? pad) 0.31250) 
GG@is=pad=tmisstated? pad) 0.15625) 
@@is-pad-tri-states? pad) 0.15625) 
((is-pad-i/o04? pad) 0.14285) 
((is-pad-i/o8? pad) 0.14285) 
(Cis-pad-power? pad) 0.0) 
((is-pad-ground? pad) 0.0) 
((is-pad-phia? pad) 1.66666) 
((is-pad-phib? pad) 1.66666) 
((is-pad-phic? pad) 1.66666)))))) 


(def pad-basic-extension 
(lambda (pad) 
(cond ((eq (pad-class) ’rinout) 

(cond ((is-pad-blank? pad) 3) 
(Cis-pad-input? pad) 29) 
((is-pad-output4? pad) 42) 
(Cis-pad-output8? pad) 42) 
((is-pad-tri-state4? pad) 67) 
((is-pad-tri-state8? pad) 67) 
(Cis-pad-i/o4? pad) 96) 
(Cis-pad-i/o8? pad) 96) 
(Cis-pad-power? pad) 3) 
((is-pad-=groundimapad)= 3) 
((is-pad-phia? pad) 29) 
(Cis-pad-phib? pad) 29) 
((is-pad-phic? pad) 29))) 

(Ceq (pad-class) ’pad20b) 

(cond ((is-pad-blank? pad) 3) 
(Cis-pad-input? pad) 21) 
(Cis-pad-output4? pad) 42) 
(Cis-pad-output8? pad) 42) 
(Cis-pad-tri-state4? pad) 67) 
((is=pad-tri-statec «stad, ver) 
((is-pad-i/04? pad) 74) 
(Cis-pad-i/o8? pad) 74) 
(Cis-pad-power? pad) 3) 
((is-pad-ground? pad) 3) 
((is-pad-phia? pad) 21) 
((is-pad-phib? pad) 21) 
((is=pad=phic? padi) oe 


(def pad-transistor-count 
(lambda (pad) 
(cond ((eq (pad-class) ’rinout) 

(cond ((is-pad-blank? pad) ’(0 0)) 
((is-pad-input? pad) ’(4 3)) 
((is-pad-output4? pad) ’(6 4)) 
(Cis-pad-output8? pad) ’(6 4)) 
(Cis-pad-tri-state4? pad) ’(11 5)) 
(Cis-pad-tri-statese pad) Clima») 
((is-pad-i/o04? pad) ’(14 8)) 
(Cis-pad-i/o8? pad) ’(14 8)) 
(C(is-pad-power? pad) ’(0 0)) 
((is-pad-ground? pad) ’(0 0)) 
((is-pad-phia? pad) ’(4 3)) 
((is-pad-phib? pad) ’(4 3)) 
((is-pad-phic? pad) ’(4 3)))) 

(Ceq (pad-class) ’pad20b) 

(cond ((is-pad-blank? pad) ’(0 0)) 
((is-pad-input? pad) ’(4 3)) 
((is-pad-output4? pad) ’(6 4)) 
(Cis-pad-output8? pad) ’(6 4)) 
(Cis-pad-tri-state4? pad) ’(11 5)) 
((Cis-pad=tri-stavesc= pac) aqiamon® 
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((is-pad-i/o4? pad) ’(14 8)) 
((is-pad-i/o8? pad) ’(14 8)) 
((is-pad-power? pad) ’(0 0)) 
((is-pad-ground? pad) ’(0 0)) 
((is-pad-phia? pad) ’(4 3)) 
((is-pad-phib? pad) ’(4 3)) 
((is-pad-phic? pad) ’(4 3))))))) 


(def layout-pad 
(lambda (pad power side) 
(cond 
(Ceq (pad-class) ’rinout) 
(cond 
(Cis-pad-blank? pad) (null-item) ) 
((is-pad-input? pad) 
Giavouc-Trinout=anput—pad 
power (input-pad-name pad) (input-pad-in-wire pad) side) ) 
((is-pad-output4? pad) 
(layout-rinout-output4-pad 
power (output4-pad-name pad) (output4-pad-out-wire pad) side)) 
(Cis-pad-output8? pad) 
layout tame -olmputo-pad 
power (output8-pad-name pad) (output8-pad-out-wire pad) side) ) 
((is-pad-tri-state4? pad) 
(layout-rinout-tri-state4-pad 
power (tri-state4-pad-name pad) 
(tri-state4-pad-out-wire pad) 
(tri-state4-pad-drive-wire pad) side)) 
((is-pad-tri-state8? pad) 
(layout-rinout-tri-state8-pad 
power (tri-state8-pad-name pad) 
(tri-state8-pad-out-wire pad) 
(tri-state8-pad-drive-wire pad) side)) 
((is-pad-i/o4? pad) 
(layout-rinout-i/o4-pad power (i/o4-pad-name pad) 
(i/o4-pad-in-wire pad) 
(i/o4-pad-out-wire pad) 
(i/o4-pad-drive-wire pad) side)) 
((is-pad-i/08? pad) 
(layout-rinout-i/o8-pad power (i/o8-pad-name pad) 
(i/o8-pad-in-wire pad) 
(i/o8-pad-out-wire pad) 
(i/o8-pad-drive-wire pad) side) ) 
((is-pad-power? pad) 
(layout-rinout-power-pad power side)) 
((is-pad-ground? pad) 
(layout-rinout-ground-pad power side) ) 
((is-pad-phia? pad) 
(layout-rinout-phia-pad power (make-phia-wire) side)) 
((is-pad-phib? pad) 
(layout-rinout-phib-pad power (make-phib-wire) side)) 
((is-pad-phic? pad) 
(layout-rinout-phic-pad power (make-phic-wire) side)))) 
(Ceq (pad-class) ’pad20b) 
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(cond 
((is-pad-blank? pad) (null-item) ) 
(Cis-pad-=input? paw 
(layout-pad20b-input-pad 
power (input-pad-name pad) (input-pad-in-wire pad) side)) 
((is-pad-output4? pad) 
(layout-pad20b-output4-pad 
power (output4-pad-name pad) 
(output4-pad-out-wire pad) side) ) 
(Cis-pad-output8? pad) 
(layout-pad20b-output 8-pad 
power (output8-pad-name pad) (output8-pad-out-wire pad) side)) 
((is-pad-tri-state4? pad) 
(layout-pad20b-tri-state4-pad 
power 
(tri-state4-pad-name pad) 
(tri-state4-pad-out-wire pad) 
(tri-state4-pad-drive-wire pad) side)) 
(Cis-pad-tri-state8? pad) 
(layout-pad20b-tri-state8-pad 
power (tri-state8-pad-name pad) 
(tri-state8-pad-out-wire pad) 
(tri-state8-pad-drive-wire pad) side)) 
(Cis-pad-i/o4? pad) 
(layout-pad20b-i/o4-pad power (i/o4-pad-name pad) 
(i/o4-pad-in-wire pad) 
(i/o4-pad-out-wire pad) 
(i/o4-pad-drive-wire pad) side) ) 
((is-pad-i/o8? pad) 
(layout-pad20b-i/o8-pad power (i/o8-pad-name pad) 
(i/o8-pad-in-wire pad) 
(i/o8-pad-out-wire pad) 
(i/o8-pad-drive-wire pad) side)) 
((is-pad-power? pad) 
(layout-pad20b-power-pad power side)) 
((is-pad-ground? pad) 
(layout-pad20b-ground-pad power side) ) 
((is-pad-phia? pad) 
(layout~pad20b-phia-pad power (make-phia-wire) side) ) 
((is-pad-phib? pad) 
(layout-pad20b-phib-pad power (make-phib-wire) side) ) 
((is-pad-phic? pad) 
(layout-pad20b-phic-pad power (make-phic-wire) side))))))) 








APPENDIX B 


MONTEREY FUNCTIONS 


This Appenclix contains all the new functions, as well as, altered \lacPitts) fiuuc- 
tions that play a role in the new pad router and pad placement process. Comunents 
are identified by a leaciing semicolon and capital letters. They pertain to the code 
iunmeciately after the comment. 


; FUNCTION RESPONSIBLE FOR ASSIGNING DATA-PATH TERMINALS 
lO co eee sinmowGn EITHER THE LEFT OR RIGHT 
Oven tonne rUNCTION LACKED THE CONDITIONAL 
oS eee sO s WERE SENT THROUGH THE LEFT SIDE 
; BY MAKE SEER i? 
eet get-basic-buses-from-port-output-unit 
(lambda (number-of-units tail unit unit-number) 
(update-basic-buses 
(update-basic-buses 
ip clalglk 
(make-port-output-id (port-output-unit-name unit) ) 
(cond 
((> unit-number (/ number-of-units 2)) (make-right-tip)) 
Gas(make=Wemet ip)! ) ) ) 
(make-port-output-id (port-output-unit-name unit) ) 
(make-output-tip unit-number) ))) 


fede fey ECO SEA OUT ROUTINES 
(declare (special gates top-part)) 


(def layout-object 
(lambda (object) 

(prog (definitions flags data-path control pins gates straps 
conductivity power data-path-length control-length 
flags-length top-width bottom-width data-path-layout 
control-layout flags-layout river-layout wing-layout 
skeleton-layout internal-layout pins-layout ring-layout 
layout nets ring-width top-part bottom-part top-bank 
bottom-bank river-width bottom-part-river-points 
intended-right intended-top extended-right extended-top) 

(setq definitions (object-definitions object)) 

(setq flags (object-flags object)) 

(setq data-path (object-data-path object)) 
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(setq control (object-control object)) 
(setq pins (object-pins object)) 
(herald "Extruding gates") 
(setq gates (extrude-gates control flags) ) 
(statistic (concat "Control has " (length gates) " columns") ) 
(cond ((member? ’opt-c option-list) 
(setq gates 
(nthelem-list 
(order (extrude-basic-straps gates) 
gates 
(count (length gates)) 
(function junction-gate-number) 
(flambda (basic-strap) basic-strap) 
(flambda (gatel gate2) 
(gate-before? gatel gate2 gates) ) 
(flambda (gatel gate2) 
(gate-after? gatel gate2 gates))) 
gates) ))) 
(setq gates (insert-nor-ground-lines gates) ) 
(herald "Extruding straps") 
(setq straps (extrude-straps gates)) 
(statistic 
(conecat "ire uinmemnes 
(slash-alpha 
(list (flags-transistor-count flags) 
(data-path-trdifegstor-count data-path 
definitions) 
(control-transistor-count gates straps) 
(pins-transistor-count pins) ) 
0 
(function +) 
(flambda (x) (+ (ear souGeade 
" transistors") ) 
(statistic 
(concat "Control has " 
(slash-alpha straps 0 (function max) 
(function strap-track-number) ) 
PM imccreics))), 
(setq conductivity (plus (data-path-conductivity data-path 
definitions) 
(control-conductivity gates straps) 
(flags-conductivity flags) )) 
(setq power (conductivity-to-power-bus-width conductivity 11)) 
(statistic (concat "Power consumption is " 
(conductivity-to-power-consumption 
(pilus comduct isa, 
(pins-conductivity pins) )) 
Y aWeat s"? )) 
(setq data-path-length 
(max (data-path-required-length data-path definitions) 
4)) 
(setq control-length (control-required-length gates) ) 
(setq flags-length (max (flags-required-length flags power) 
4)) 
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(setq top-width (max (data-path-required-width 
data-path power definitions) 
(flags-required-width flags power) )) 
(setq bottom-width (control-required-width straps) ) 
(herald "Laying out data-path") 
(setq data-path-layout 
(layout-data-path data-path power 
top-width definitions) ) 
Mrerald "Laying out control”) 
(setq control-layout (layout-control gates straps 
power bottom-width) ) 
(herald "Laying out flags") 
(setq flags-layout (layout-flags flags power top-width) ) 
(herald "Laying out river'') 
(setq top-part 
(merge (move data-path-layout (+ power 3) 0) 
(move flags-layout (+ power 3 data-path-length 
3 power 3) 0))) 
(setq bottom-part 
(move control-layout (+ power 3) (- power 4))) 
(setq bottom-part-river-points 
(find-attributes bottom-part ’ (river))) 
(setq top-bank 
(sort (alpha (flambda 
Gskentincs 
(Pommex (find top-part 
(point-name point)))) 
bottom-part-river-points) 
(itinetion <))) 
(setq bottom-bank 
(sort (alpha (function point-x) 
bottom-part-river-points) 
Chunetion™<) )) 
(setq river-width 
(+ (river-span ’NP 2 top-bank bottom-bank) 
(wing-span bottom-part) 
(- 4 power) )) 
(setq intended-top 
(+ power bottom-width power river-width (driver-width) 
power top-width power 3 power)) 
(setq intended-right 
(+ power 3 (max control-length 
(+ data-path-length 3 
power 3 flags-length) ) 
3 power) ) 
(setq river-layout 
(river ’NP 2 (wing-span bottom-part) top-bank bottom-bank) ) 
(herald "Laying out wing") 
(setq wing-layout 
(layout-wing (sort (find-attributes bottom-part ’ (wing) ) 
(flambda (point1i point2) 
CaiGseant—-x point1) 
cooenn-x point 2) ))))) 
(herald "Laying out skeleton") 


139 


(setq skeleton-layout 
(layout-skeleton power intended-top intended-right 
data-path-length bottom-width 
river-width) ) 
(setq internal-layout 
(merge 
(move top-part 0 
(+ power bottom-width power river-width 
(driver-width) power) ) 
bottomspawanr 
(move (rotcw river-layout) 0 
(+ power bottom-width power 
river-width) ) 
(move wing-layout 0 
(+ power bottom-width 4)) 
skeleton-layout) ) 
(herald “Laying out pins") 
(setq pins-layout 
(layout-pins pins 
top-part 
bottom-part 
power 
intended-right 
intended-top 
(make-ring-width 0 0 0 0) 
(lookup-logo definitions) )) 


; IF NOT SUFFICIENT SPACE TO ACCOMMODATE NUMBER OF PADS; 
; SPECIFIED Be NUMBER=PADS=P ERs pie ae Dee Oe iaieene 
; DIMENS TON SUN Vere eee 
(setq extended-right (extend-right pins intended-right 
intended-top) ) 


; IF NOT SUFFICIENT SPACE TO ACCOMMODATE NUMBER OF PARie 
; SPECIFIED BY NUMBER-PADS-PER-SIDE, EXTEN Diienee 
; DIMENSION VIL eee Fie 


(setq extended-top (extend-top pins intended-top extended- 
right) ) 


; CALCULATES CHANNEL WIDTHS FOR EACH OF THE PGURSeGieii 
; OF THE PAD ROUTER ROUTING REGIONS 
(setq ring-width 
(get-ring-width (merge internal-layout pins-layout) 
extended-right extended-top) ) 


; SECOND PASS THRU LAYOUT-PINS DIFFERS FROM@PIRST IN sta 
; CORRECT RING-WIDTHS ARE AVAILABLE 
(setq pins-layout 
(layout-pins pins 

arte) had oy ahr 
bOtwem= pa tat 
power 
intended-right 
intended-top 
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ring-width 
(lookup-logo definitions) )) 


, EXDRAC RIE P-EiStoelOR NETS THAT CONNECT TO LEFT SIDE 
; OF CeRCcUIT 
(setq left-ring-nets 
(append (list (sort-y 
(get-nets 
(append 
(0 0 0 0) 
(list (mapcar 
aeous 
(extract-basic-nets 
internal-layout)))) 
weletE yy €))) 
(list (prep-pad-bank pins-layout ’left)))) 


pee eee e le blots POR PADS THAT CONNECT TO RIGHT SIDE 
OF CIRCULE 
(setq right-ring-nets 
(append (list (sort-y 
(get-nets 
(append 
»(0 0 0 0) 
(list (mapcar 
a ecbe 
(extract-basic-nets 
internal-layout) ))) 
a ererenic) i) )™) 
(list (prep-pad-bank pins-layout ’right)))) 


; PRODUCES LAYOUT OF NETS BETWEEN CIRCUIT AND PADS. 
(setq ring-layout 
(moat left-ring-nets 
right-ring-nets 
7 NM 
4 
ring-width) ) 


(setq layout 
(first-quadrant (merge internal-layout pins-layout 
ring-layout))) 
(statistic (concat "Dimensions are "' 
;;jJh replaced minimum-feature-size with lambda-spacing. 
(quotient (times (right layout) 
(lambda-spacing) ) 
100000.0) 
tt mm by Vt 
(quotient (times (top layout) 
(lambda -spacing) ) 
100000.0) 
1 mm'! ) ) 
(return layout) ))) 
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(declare (unspecial gates top-part)) 


; TOP,LEVEL OF PAD LATaOT SS Uren iS 
(defsymbol layout-pins (pins top-part bottom-part power 
intended-right intended-top 
ring-width logo) 

(let ((extended-right (extend-right pins intended-right 

intended-top) )) 

(let ((Cextended-top (extend-top pins intended-top 

extended-right) )) 


; CALCULATE WIDTH OF PAD POWER AND GROUND SUPPLY RAILS. 
(let ((pins-power (conductivity-to-power-bus-width 
(pins-conductivity pins) 
(pad-class-default-power-bus-width) ) )) 


; DEVELOPS LIST QHAT SPECIFY PAD Ege yaaa 
(let ((pin-net (arrange-pins pins (extract-internal-nets 
Lop=pant. 
extended-top 
extended-right) )) | 





' CALCULATES OUTER CHIP COORDINATES FOR ALL FOUR SIDE 
| RESULTS IN A FOUR NUMBER LIST. . 
(let ((dimensions (pins-dimensions (cadr pin-net) pins 
pins-power ring-width 
extended-right 
extended-top) )) 
(let ((top (dimensions-top dimensions) ) 
(right (dimensions-right dimensions) ) 
(left (dimensions-left dimensions) ) 
(bottom (dimensions-bottom dimensions) ) ) 


; PRODUCES RING OF PADEE 
(let ((pins-layout (place-pins (cadr pin-net) dimensions 
pins-power) )) 
(let ((power-point (find pins-layout ’ (power) )) 
(ground-point (find pins-layout ’ (ground) ))) 
(merge (cond ((member? ’logo option-list) 
(move (first-quadrant 
(title logo NM ’nonie.r.10)) 
(+ left pins-power 3) 
(+ bottom pins-power 3))) 
(t (null-item) )) 
pins-layout 


; PRODUCES” POWER, SURE Ger AT I Ore Alb oe 
(layout-power-ring pins-power power dimensions 
extended-right extended-top 
power-point ground-point) 


; PRODUCES GROUND SUPPLY RAIL FOR PADS. 
(layout-ground-ring pins-power power dimensions 
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extended-right extended-top 
power-point ground-point 


(aan pin-net)))))))))))) 


Pelveeaes DO NOY Fil AROUND CURRENT CIRCUIT DIMENSIONS, 
SoS Sie D RiGee TENDED=TOP, INCREASE EXTEND-TOP 
eer Le ALES PADS: FIT. 
(def extend-right 
(lambda (pins intended-right intended-top) 
(cond 
((< (length pins) (* 2 (+ (fix (/ intended-top 
(pad-class-width) )) 
(fix (/ intended-right 
(pad-class-width)))))) 
intended-right) 
¢: 
(cond 
((< intended-right intended-top) intended-right) 
ete eae (= (léeneth pins) 
(* 2 (fix (/ intended-top 
(ecedeelass-width) ))))) 
2)) 
(pad-class-width)))))))) 


; IF PADS DO NOT FIT AROUND CURRENT CIRCUIT DIMENSIONS, AND 
Pi TEED Ore NDED-RIGHT, INCREASE EXTENDED-TOP 
Piel L Aer ADS ak! ; 
(def extend-top 
(lambda (pins intended-top extended-right) 
(cond 
((< (length pins) (* 2 (+ (fix (/ intended-top 
(pad-class-width) )) 
(fix (/ extended-right 
(pad-class-width)))))) 
intended-top) 
(t 
(cond 
((<= intended-top extended-right) intended-top) 
(t (* a (/ (1+ (- (length pins) 
(* 2 (fix (/ extended-right 
(pad-class-width)))))) 
2) 
(pad-class-width)))))))) 


; EXTRACTION OF DATA FOR PAD PLACEMENT 


| RESUPRS IN A LIST CONSISTING OF TWO LISTS. THE FIRST 
ot eeieonmeomree Nel POINTS THAT ARE ON THE LEFT SIDE OF 
; [HE INTERIPAL CIRCUIT AND CONNECT TO PADS. THE SECOND 
Lister tie rSeale SUCH POINTS ON THEgRIGHT SIDE. POILNIS 
; ON BOTH LISTS ARE ORDERED BY THEIR Y-COORDINATES. 
(def extract-internal-nets 
(lambda (top-part) 
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(append (list (append (excise-port-drive 
(extract-names wing-layout) ()) 
(SOrt-by-y (get—-nets top-part (lene 
OD? 


(list (sort-by-y (get-=nets top=part "(micha) ()) 0) 


- TAKES A LIST OF POINTS AND RETURNS THE SAME LIST SORTED 
- BY THEIR Y-GOGRiaY ATES 
(def (somtcbhy.7 
(lambda (list sorted-list) 
(cond 
((null list) sortéd=Tist) 


(t (sort-by=yl (car list) (cdr list) list sorted=imist yee 


(def sort=by> ya 
(lambda (thing 1 list sorted-list) 
(cond 
((null 1) (sort-by-y (excise thing list) 
(append sorted-list (caar thing) ))) 
((> Cpoint-y (car thing) (point —y (Gace es 
Csort-by-y1l (Ccar™i®® (edr lJ) list sepped oem) 
(t (Csort=by=y1l thing Cedr 1) list scomped [iiss eD 


; REMOVES POINTS WITH THE NAME PORT-DRIVE SP ROMS. oon 
; POINTS. PORT-DRIVE,1S THE NAME GIVEN TO THE SIGNALS ies 
; CONTROLS TRI-STAtE Pavow 
(def excise-port-drive 
(lambda (list new-list) 
(cond 
CCnull list). new=las 
(Cequal (caaar list) ’port-drive) 
(excise-port-drive (cdr list) new-list)) 
(t (excise-port-drive (cdr list) (append new-list 


(car list))))e8 


; MAKES A LIST OF THE POINT NAMES OF ALL POINTS IN A Siem 
; WITH THE ATTRIBUTE ‘RING’. THIS ATTRIBUTE IDENTIN Gas 
; POINTS INVOLVED IN PAD ROUTING. 
(def extract-names 
(lambda (item) 
(append 
(setify (alpha (function point-name) 
(find-attributes item ’(ring))))))) 


; GIVEN A LIST OF NET NAMES, IT EXTRACTS EVERY OCCURRETIS 
; OF THOSE POINTS PROMPAS et SUR wee: 
(def get-nets 


(lambda (lastasaidies 
(get-netsl list (get-names list side) ()))) 


(def get-netsl 


(lambda (list net-names output) 
(cond 


((null net-names) output) 
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(t (get-nets1 list 
(cdr net-names) 
(append output 
lst Gling—-all list 
(car net-names))))))))) 


(TE clS HAVES OSG INDSSHAVING A SPECIFIED ATTRIBUTE. 
) Litt mie einewan itt BUTE COULD BE ‘LEFT’ OR 
; REG 
(def get-names 
(lambda (item side) 
(setify (alpha (function point-name) 
(find-attributes (get-ring-net item) side))))) 


- EXTRACTS EVERY POINT WITH THE ATTRIBUTE ‘RING’ FROM 
oh boi ear se@riNTs. 
(def get-ring-net 
(lambda (item) 
(get-ring-net1 item 
Cextract-names item) 


ODD». 


(def get-ring-netl 
(lambda (item name-list internal-connections) 
(cond 
((null name-list) (append 
Cee aid nil) 
Mist invernal-connmections) )) 
(t 
(get-ring-net1 item 
(cdr name-list) 
(append internal-connections 
(find-all item (car name-list)))))))) 


ee ie LACEMENT. 


foo Soe neato PROVIBED BY EXTRACT-INTERNAL-NETS, 
, Pe iGgia SeomeOlornUels A LIST AIMAT sSPECIF LES.PAD 
eo oe rro lL IRIES TOOMENIMIZE CHIP AREA BY 

eo eeeitieeeeeboe tN THE LEAs? NUMBER OF SEDES. THEN, IT 


7 Con ieee tet ST SOR POINTS PROM EXTRACT=INTERNAL-NETS 
; WITH THE CLOCK, POWER AND GROUND-PADS. 
(def arrange- pins 


(lambda (pins sorted-pins extended-top extended- Pint) 
(let (Cleft (car sorted-pins)) 
(right (cadr sorted-pins))) 
(merge-common-side-lists 
(cond 
((>= (* extended-right 2) 
(* (pad-class-width) (+ 5 (length left) 


(length right)))) 
(append (list 2) 


(list (order-pins pins 
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(make-top-and-bottom-pin-lists 
(reverse left) 
right 
>((phic) (phib) (phia)) 
(- (length left) (length right))))))) 
(t 
(cond 
((>= (+ extended-top extended-top extended-right) 
(* (pad-class-width) (+ 5 (length left) 
(length right)))) 
(append (list 3) 
(list (omédler—-pins pins 
(append (pre-number-pins 
(order-left left nil) 
() ?left) 
(pre-number-pins 
(order-right rime 
nil) 
Q ‘riehr peep 
((>= (* 2 (+ extended-top extended-right)) 
(* (pad-class=width) (length pins)» 
(append (list 4) 
(list (order-pins pins 
(append 
(pre-number-pins 
(order-left 
(append left 
’((phia) (phib) 
(phic) )) 
> set) 
()u2 vem) 
(pre-number-pins 
(order-right 
(append ’((power)) right 
’( (ground) ) ) 


() ?righty) ee 


>set) 


- MERGES LISTS PERTAINING TO THE SAME SIDE. FOR EXAMPLE: 
- ((C...1) (€...2) TOP) CC...3) (...4) TOP)) WOULD RESULT 
- (C(...1) ¢€...2) ©€...3) (...4) TOP). THE FUNGTION FINDS 
; WHICH LISTS TO MERGE BASED ON THE NUMBER OF SIDES SLATED 
- FOR PAD PLACEMENT. WITH THIS INFORMATION, THE FUNCTION 
- KNOWS WHERE IN THE NET LIST THE INDIVIDUAL LIST SEGMENTS 
- ARE LOCATED. (LENGTH (CADR NETS)) RETURNS THE NUMBER OF 
; PAD LISTS IN THE LIST. SINCE THE LIST IS OF FORM: 
- (NIL NIL NIL NIL NIL NIL NIL (€.. TOR) C.- 2iCht ae 
- A VALUE OF 7 INDICATES NO PIN-LISTS. 
(def merge-common-side-lists 
(lambda (nets) 
(cond 


(C= (car nets) 3) ;(CAR NETS) = NUMBER OF SIDES PINS ARE 
LOCATED 
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leond 


((= (length (cadr nets)) 11) hile ACTUAL PIN-LISTS 
(merge-side-lists nets ’top)) 
(t nets))) 
(t 
(cond 
((= (length (cadr nets)) 13) ;7=NIL 6 ACTUAL PIN_LISTS 
(merge-top-and-bottom-lists nets)) 
((= (length (cadr nets)) 12) iii Oo AC UN pelo 1S 


(merge-top-or-bottom-lists nets) ) 


(t nets)))))) 


MeRGES Lists IN A LIST @wiTA THE SAME “SIDE”? ATTRIBUTE. 
(def merge-side-lists 
(lambda (item side) 
(append (list (car item)) 
(list (append (find-net (cadr item) side) 
(delete-net-lists (cadr item) side ())))))) 


; USED WHEN PADS ARE PLACED ON THE TOP AND BOTTOM ONLY. 
(def merge-top-and-bottom-lists 
(lambda (item) 
(append (list (car item)) 
(list (append (find-net (cadr item) ’top) 

(find-net (cadr item) ’bottom) 

(delete-net-lists 
(delete-net-lists (cadr item) ’top ()) 
’bottom ())))))) 


POW Ro Nee tee DKS ARE USEDeskO PIPACE PADS, THIS 
; FUNCTION LOOKS BOR TWOWINSTANCES OF TOP OR BOTTOM 
; OCCURRING. 
(def merge-top-or-bottom-lists 
(lambda (item) - 
eeond 

@@umil, (cddr Chind-net (cadr item) ’top))) 

‘(merge-side-lists item ’top)) 

(t (merge-side-lists item ’bottom))))) 


; GIVEN A LIST AND A PARAMETER, IT RETURNS ‘T’ IF THE 
CARA eet thee iol, NIL OTHERWISE. USED 
Si eee UP -on-CPOnlTOM-LISTS TO DETERMINE IF THE 
* COMMON SIDE PARAMETER IS TOP OR BOTTOM 
(def find-net 
(lambda (item side) 
(find-netl 
(such-that item 
(flambda (element) 
(equal side (car (reverse element)))))))) 


(def find-netl 


(lambda (item) 
(list (append (cdr (reverse (car item))) 
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(cadr item))))) 


- DELETES THE SECOND LIST APPEARING WITH THE ‘SIDE’ 
ALTRI Vie 
(def delete-net-lists 
(lambda (item side out) 
(cond 
(Gaull iwten eure 
Gt 
(cond 
(Cequal side (car (reverse (car item)))) 
(delete-net-lists (€cdr item) side out)) 
Ge 
(delete-net-lists (cdr item) 
Side 
(append out 
(list (car item))) oye” 


; USED WHEN ALL PINS CAN FIT ON [GP SAND Sra TOM Sire. 
; ONDY. CROCK PADS ARE DISTRIBUTED VAMG NG Hise sean ip 
; RIGHD LISTS IN@AN EFFORT TO °EQUAIIZE ae Oi ie cere 
; PADS IN THOSE LISIS. THE PARAMETERS TiS jens 
; DIFFERENCE IN THE NUMBER OF Sc isiiee ors melee eae ees 
; ORIGINAL LEFT ANDPRYIGHE "LISTS. Det Orr medi oh @ enw 
; DISTRIBUTION. POWER IS ALWAYS APPENDED 10 THE LEF I SEs 
; AND GROUND IS ALWAYS APPENDED TOS DRES cH) Lisl au 
; LEFT LIST IS PLACED™ALONG™THE BOTTOM.” Ir THE PADS SUGiaae 
; FIT, THE EXCESS IS PLACED ON THE EEFT CURNER Gh [ies 
; SIDE. PADS THAT CONNECT TO THE HIGHT SIDE ARE Risser 
; ALONG THE TOP. AGAIN, IE THEY GN SET) Tibet ees ae 
PLACED ALONG THE RIGHT CORNER OF RHE CULLEN Sipe 
(def make- Top=and—bow coms cattle 
(lambda (left right phi-list times) 
(cond 
((= times 0) 
(cond 
Con ao ha ste) 
(append (list (number-pins (append left ’((power))) 
’bottom ’left 1)) 
(list (number-pins (append right ’ ((ground) )) 
top)? mii 
(fix (/ extended-right 
(pad-class-width))))))) 
(t 
(cond 
C@ (Clenistht phates) ay 
(append (list (number-pins (append left (cadr phi-list) 
’((power) )) 
botton ahem tat) 
(list (number-pins (append right ’ ((ground) ) 
(car spi= lacie» 
top ?right 
Gai 


144 








(/ extended-right 
(pad-class-width))))))) 
(t 
(append (list (number-pins (append phi-list left 
’ (Cpower) ) ) 
bottom ’left 1)) 
(list (number-pins 
(append right ’((ground) )) 
EON Lee 
(fix (/ extended-right 
(pad-class-width))))))))))) 
((> times 0) 
(cond 
(Cnull phi-list) 
(cond 
(Cand 
(< (* (length left) (pad-class-width)) extended-right) 
(< (* (length right) (pad-class-width)) extended-right) ) 
(append (list (number-pins (append left ’ ((power) )) 
’bottom ’left 1)) 
(list (number-pins 
(append right ’((ground) )) 
Geo “ie aledgue 
(fix (/ extended-right 
(pad-class-width))))))) 
(t 
(make-top-and-bottom-pin-lists (reverse 
(cdr (reverse left))) 
(append 
right 
Gist 
(car (reverse left)))) 
-) 


Ciee= times ft) 


0 
(- times 2)))))) 
GE 
(append (list (number-pins (append left ’((power) )) 
bottom ’left 1)) 
(list (number-pins 
(append phi-list ’((ground)) right) 
top ’right 
(fix (/ extended-right 
(pad=class-widun))))) py ) 
(t 
(cond 
((null phi-list) 
(cond 
(Cand (< (* (length left) (pad-class-width) ) 
extended-right) 
(< (* (length right) (pad-class-width) ) 
extended-right) ) 
(append (list (number-pins (append left ’((power))) 
Bootromm wert 1) ) 


145 


(list (number-pins (append right ’((ground) )) 
’top ’right 
Gealye 
(/ extended-right 
(pad-class-width))))))) 


(t 
(make-top-and-bottom-pin-lists (append (list (car right) ) 
left) 
Cech recline), 
() 
(if (= times -1) 
0 
(+ 2 
times)))))) 
(t 
(make-top-and-bottom-pin-lists (append left (car phi-list)) 


mag ht 
Melee sje 1 ah 
(+ 1 times)))))))) 


; WHEN PAD PLACEMENT IS TO GCCURSGN THREE SGR, FOURSSiies 
; IF THE PAD LIST FITS ON THE Geol DE SOR Doh oo oes 
; CALLED TO PLACE ALL PADS ON THE EErT SIDE. “tienes 
; PADS ARE PLACED ALONG THE BOTTOM UNTIL A COUNTER REACHES 
; A VALUE EQUAL TORE R ER SRS iACr a Ober mnie 
; ORDER-SIDE IS CALLED TO PLACE PADS UNTIL THE LEFT SIDE IS 
; FILLED. ANY REMABNING PADS ARESP LACED SA LONG ST HE Gne 
(def order-left 
(lambda (list flag) 
(let ((topsize (fix (/ extended-top (pad-class-width))))) 
(cond 
(Ceq flag ’set) 
Corder-bottom list 
(fix (/ (- (Wemeth list) tcpsiz aap 
OO 7 lett 
(t 
(order-side list 190) Om letn peop» 


; OEE COMMENTS FORRGVD Sic cee 
(def ordem-rigin 
(lambda (list flag) 
(let ((topsize (fix (/ extended-top (pad-class-width) )))) 

(cond 

(Ceq flag ’set) 

C(order-bottom list 
(fix (/ (= (length 11st) stopeazey me 
ORO Fe acityy) 

(t 

(order-side list 1 () () ’right)))))) 


; PLACES PADS ON EITHER THE Gh Clee ee esti Ese ieee 
; THE COUNTER INSTANCE ADVANGES = TGR TOP—S1 2h) Chae 
; EQUALS THE NUMBER OF PADS THAT FIT ON THE LEFT/RIGHT 
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- 5S ERE. 
(def order-side 


(lambda (side-list instance out out1 flag) 


(cond 
((= instance topsize) 
(cond 
((null side-list) 
(cond 


(Ceq flag ’left) 
(order-top () 


(append (list (append (list out1) ’(left))) 


; oie 
OI 


(t (append (list (cons ’(right) out)))))) 
(t 


(cond 
(Ceq flag ’left) 
(Grder—-top (edr side-list) 
(append (list 
(append (list (append outl 
(last 
(car side-list)))) 
(left) )) 
out) 
Oi), 
(t 
(order-top (cdr side-list) 
(append (list 
(cons (append out1 
(erst (car side-list))) 
BGs edec) 
. om) 1) ))))2) 
t 


(reverse (order-side (cdr side-list) 
(1+ instance) 
out 


(append outi (list (car side-list))) 
flag)))))) 


; PEAGES PADS SALONG THE BOTTOM SIDE UNTIL THE COUNYVER 
SINS Teer = TEMES. 


(def order-bottom 


(lambda (side-list times instance out flag) 
(cond 


(C= instencemeames) 
(order-side side-list 


ih 
(list (append (list out) ’ (bottom) )) 
Q 
flag)) 
cc 
(order-bottom (cdr side-list) 
times 


(1+ instance) 
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(append out (list (car side-list))) 
flag))))) 


; PLACES PADS ALONG THE TOP UNTIL Tuer eee 
y EAHAUSIEDE 
(def order-top 
(lambda (side-list out out1) 
(cond 
((null side-list) 
(cond 
(Ceq ’left (car (reverse (car out)))) 

(append (list (append (list out1) 


(top) )) 
out) ) 
Ge 
(append (list (cons outl *(top)) cutee. 
(t 
(cond 


(Ceq left (car (reverse (car out)))) 
(order-top (cdr side-list) 
out 
(append outi (list (car side-list))))) 
(t 
(order-top (cdr side-list) 
out 
(append (list (car side-list)) out1i)))))))) 


; PINS IS A LIST CONTAINING FULL PAD NAMES. SORTED -P ie 
; IS A LIST CONTAINING POINTS, CURDERSPINS 2e his 
; A@LIST OF PAD NAMES IN THE GRE UF SOnTED cio 
; THIS IS NECESSARY BECAUSE THE FUNCTION PAD-LAYOQUT 
; REQUIRES PAD NAMES TO HULEY IDEN Tisey A Pan: 
(def order-pins 
(lambda (pins sorted-pins) 
(cond 
((null sorted-pins) (null-item) ) 
Ce 
(append 
(list (excise (null-item) 
(order-pinsi pins 
(cdr (reverse (car sorted-pins) )) 
(car (reverse 
(car "sorted™onmepay) 8 
(order-pins pins (cdr sorted-pins))))))) 


(def order-pinsl 
(lambda (pins work-list side) 
(cond 
((null work-list) (list side)) 
(t 
(append (list (order-pins2 pins (car work-list) side)) 
(order-pinsl pins (cdr work=iiey =o1dae) en 
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ew OO&———— 


(def order-pins2 
(lambda (pins work-list side) 
(cond 
(Cor (is-pad-output4? (cadar pins) ) 
(is-pad-output8? (cadar pins) )) 
(cond 
(Cand (eq (cadaddadr (car pins)) (cadar work-list)) 
(eq (caddaddadr (car pins)) (caddar work-list))) 
(append (cdr work-list) (cdar pins))) 
(t 
(order-pins2 (cdr pins) work-list side)))) 
(Cor (is-pad-tri-state4? (cadar pins)) 
(is-pad-tri-state8? (cadar pins))) 
(cond 
(Cand (eq (cadaddadr (car pins)) (cadar work-list)) 
(eq (caddaddadr (car pins)) (caddar work-list))) 
(append (cdr work-list) (cdar pins))) 
(t 


(order-pins2 (cdr pins) work-list side)))) 
(Cor (is-pad-power? (cadar pins)) 
(is-pad-ground? (cadar pins) ) 
(is-pad-phia? (cadar pins)) 
(is-pad-phib? (cadar pins)) 
(is-pad-phic? (cadar pins) )) 
(cond 
(Ceq (caadr (car pins)) (caar work-list)) 
(append (cdr work-list) (cdar pins))) 
(t 
(order-pins2 (cdr pins) work-list side)))) 
((is-pad-input? (cadar pins)) 
(cond 
(Cif (= (length (car (reverse (cadr (car pins))))) 2) 
(eq (cadar (reverse (cadr (car pins)))) 
(cadar work-list) ) 
(and (eq (cadar (reverse (cadr (car pins)))) 
(cadar work-list)) 
(eq (caddar (reverse (cadr (car pins)))) 
(caddar work-list)))) 
(append (cdr work-list) (cdar pins))) 
(t 
(order-pins2 (cdr pins) work-list side)))) 
(t Cnull-item))))) 


; PRESNUMEER-PINS AND PRE-NUMBER-PINS1 ARE USED WHEN 
; Pav Se nee DACEDSONSTHREES@R FOUR SIDES. THESE 
; FUNCTION ENSURE THAT THE INTERNAL TRMINATION SITE, 
oof Gnl., tie CONS EDERED INmvUMBER ASSIGNMENT . 
peovnee ee eweee Ao ALONG THE tOP THAT CONNECT TO THE 
7 (hemes OF THE seeRCUIT SSHOULD BE POSTTRONED ON 
Pelt mGiieeCOnNine NHtLE THOSE TAT CONNECT TO THE LEFT 
SLE E AC ED ON THE LEFT CORMER . 

(def pre-number-pins 
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(lambda (list out flag) 
(cond 
CCnuli list) oe 
(t 
(append out (pre-number-pinsi (cdr list) (caar list) 
(cadar list) flag)))))) 


(def pre-number-pins1i 
(lambda (list side-list sidel flag) 
(cond 
(Cand (or (eq sidel ’top) (eq sidei ’bottom) ) 
(eq flag ’right)) 
(pre-number-pins list 
(list (number-pins 
(if (eq flag ’top) 
side-list 
(reverse side-list)) 
sidel 
flag 
(fix (/ extended-right 
(pad-class-width))))) 
aet-D) 
(t 
(pre-number-pins list 
(list (number-pins side-list sidel 
ae aD 
a e-t- DDDD, 


; ASSIGNS A NUMBER TO™EACH™PIN THAT, ALONG WITH THE Sispie 
; LOCATES EACH PAD. NUMBERS FOR PINS ON] THES Rohe 
; BOTTOM SIDES THAT CONNECT TO THE LEFI SIDE ARE SAS= icine 
; BY A COUNTER STARTING AT 0. THE COUNTER FOR PADS Thee 
; CONNECT TO THE RIGHT SIDE STARTS WITH THE MAXIMUM NUMBER 
; (THE PAD AT THE RIGHT CORNER) AND COUNTS DOWN UNTIL THE 
; LIST 1S ExrAs apr 
(def number-pins 
(lambda (list side1l side2 pin-number) 

(cond 

((null list) (list side1)) 

(Cand (or (eq sidel ’top) (eq sidel ’bottom) ) 

(eq side2 ’right)) 
(append (list (cons (car list) (list pin-number)) ) 
(number-pins (cdr list) side1l side2 
(1- pin-number )))) 
(t 
(append (list (cons (car list) (list pin-number)) ) 
(number-pins (cdr list) sidel side2 
(1+ pin-number))))))) 


PINS=DIMENSIONS DETERMINES THE DIMENSIONS OF THE CiRCuiss 
IT’S OUTPUT IS A FOUR NUMBER VECTOR CONTAINING THE 
POSITIONS OF THE TOP, (RIGHT SEOTTOMMAND CERT Sot So Oia 
CIRCUIT. VARIOUS PARAMETERS ARE CONSIDERED IN 
CALCULATING THESE NUMBERS. AMONG THEM: 


ww 6 we ‘ws ww ~~ « 
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MAXIMUM PAD-HEIGHT FOUND IN THAT SIDE 
SIZE OR Tne INGERMAL CIRUIT LAYOUT 
POWER AND GROUND RING REQUIREMENTS 
RING-WIDTH 
(def pins-dimensions 
(lambda (pin-net pins power ring-width extended-right 
extended-top) 


) 
’ 
} 


Pm WD 


(cond 


; WHEN PADS PLACED ON TOP AND BOTTOM SIDES ONLY 
((>= (* 2 extended-right) (* (length pins) (pad-class-width) )) 
(make-dimensions 
0 
(+ extended-top (ring-width-top ring-width) power power 3 


, RETURNS [THE EGHT OF THE TALLEST PAD ON 
mee ee PAD tot 
(slash-alpha (cdr (reverse (cadr pin-net))) 
(pad-class-basic-height ) 
(function max) 
(flambda (pin) (pin-height pin 
power)))) 
(+ extended-right (ring-width-right ring-width) power 3) 
(- 0 (ring-width-bottom ring-width) pins-power power power 3 
; REGURNS THE HEIGHT OF THE TALLEST PAD ON 
7 dhe COITOMMr AD »LISa 
(slash-alpha (cdr (reverse (car pin-net))) 
(pad-class-basic-height) 
(function max) 
(flambda (pin) (pin-height pin power)))) 
(- 0 (ring-width-left ring-width) power power 6))) 
((>= (+ extended-top extended-top extended-right) 
(* (length pins) (pad-class-width) )) 
(make-dimensions 
0 
(+ extended-top (ring-width-top ring-width) power power 3 
(slash-alpha (cdr (reverse (car pin-net))) 
(pad-class-basic-height) 
(function max) 
(flambda (pin) (pin-height pin power)))) 
(+ extended-right (ring-width-right ring-width) 
power power 3 (slash-alpha 
(cdr (reverse (caddr pin-net)) ) 
(pad-class-basic-héight) 
(function max) 
(flambda (pin) (pin-height pin power) ))) 
(- 0 (ring-width-bottom ring-width) power power 3) 
(- 0 (ring-width-left ring-width) power power 3 
(slash-alpha (cdr (reverse (cadr pin-net))) 
(pad-class-basic-height) 
(function max) 
(flambda (pin) (pin-height pin power)))))) 
ce 


(make-dimensions 


lol 


0 
(+ extended-top (ring-width-top ring-width) power power 3 
(slash-alpha (cdr (reverse (car pin-net))) 
(pad-class-basic-height) 
(function max) 
(flambda (pin) (pin-height pin power)))) 
(+ extended-right (ring-width-right ring-width) 
power power 3 (slash-alpha 
(cdr (reverse (cadddr pin-net) )) 
(pad-class-basic-height) 
(function max) 
(flambda (pin) (pin-height pin power)))) 
(- 0 (ring-width-bottom ring-width) power power 3 
(slash-alpha (cdr (reverse (cadr pin-net))) 
(pad-class-basic-height) 
(function max) 
(flambda (pin) (pin-height pin power)))) 
(- 0 (ring-width-left ring-width) power power 3 
(slash-alpha (cdr (reverse (caddr pin-net))) 
(pad-class-basic-height) 
(function max) 
(flambda (pin) (pin-height 
pin power))))))))) 


; GIVEN THE COMPLETE PADMIS, .RLACE-PINS BREAKS OFF Tae 
; LIST OF PADS FOR ONES SU DEMAND GiyEowil [0 PLACE Rita 
> FOR FURTHER: PROCESSING .oeDERMENSDPONS VALVES ARE OBTATI ES 
; FROM PINS-DIMENSIONS. POWER IS THE WIDTH OF THE SKEIEag 
; POWER/GROUND RAILS. 
(def place-pins 
(lambda (pin-list dimensions power) 
(cond 
(C= (length pin-list) 7) (null-item)) 
(t 
(merge (place-pinsi (cdr (reverse (car pin-list))) 
(car (reverse (car pin-list))) 
dimensions power) 
(place-pins (cdr pin-list) dimensions power)))))) 


; GIVEN A LIST OF PADS ON A GIVEN@SSDE, "PLACE-PINS tee aer. 
; OFF INDIVIDUAL PADS AND GICES@ TRE TUS EACr Stier 
>; FURTHERV PROCESS Dice 
(def place-pins1 
(lambda (pin-list1 side dimensions power) 
(let ((top (dimensions-top dimensions) ) 
(right (dimensions-right dimensions) ) 
(bottom (dimensions-bottom dimensions) ) 
(left (dimensions-left dimensions) )) 
(cond 
( (null pin-list)) im a cem» 
(t 
(merge (place-pin (cadar pin-list1) 
(caar pin-list1) side power) 
(place-pinsi (cdr pin-list1) side 
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dimensions power))))))) 


PLACES AND ORIENTS THE PIN LAYOUTS. THE ACTUAL 
LAYOUT IS PRODUCED BY LAYOUT-PAD. ORIGINAL PAD 
ORIENTATION IS SUITED FOR LAYING PADS ON THE BOTTOM. 
TO OBTAIN CORRECT ORIENTATIONS FOR THE OTHER SIDES, 
THE LS FUNCTION MIRRORX (PRODUCES AN IDENTICAL IMAGE 
AS IF THE X-AXIS WERE A MIRROR) IS USED FOR THE TOP, 
THE L5 FUNCTION ROTCCW (ROTATE COUNTER CLOCKWISE) IS 
USED FOR THE RIGHT SIDE, 

THE L5 FUNCTION ROTCW (ROTATE CLOCKWISE) IS USED FOR 
THE LEFT SIDE. 

THE PRODUCT OF THE PIN-NUMBER AND THE WIDTH OF THE 
PAD-CLASS PROVIDES THE X-COORDINATE POSITION WHEN 
PLACING PADS ON THE TOP OR BOTTOM SIDES, AND THE 
Y-COORDINATE FOR THE RIGHT AND LEFT SIDES. 


(def oom pin 
(lambda (pin pin-number side power) 


(cond 


(Ceq side ’top) 
(move (mirrorx (layout-pad pin power ’top)) 


(* (pad-class-width) (1- pin-number) ) 
Won 


(Ceq side ’right) 
(move (rotccw (layout-pad pin power ’right)) 


right 
(* (pad-class-width) (1- pin-number) ))) 


(Ceq side ’bottom) 
(move (layout-pad pin power ’ bottom) 


Ce 


(* (pad-class-width) (1- pin-number) ) 
bottom) ) 


(move (rotccw (mirrorx (layout-pad pin power ’left))) 


left 
(* (pad-class-width) (1- pin-number))))))) 


LAYOUT-GROUND-RING BUILDS A METAL1 RING ON THE INTERIOR 
PAD BOUNDARY AND CONNECTS IT TO THE SKELETON GROUND RAIL 
SITUA TEDMONS Tike TGReOQrF THE INTERNAL ChRCUIT LAYOUT. THE 
Peeve wo ON THE NUMBER OF SIDES USED TQ PLACE 
Paves lZEh OF THE SINTERNAL LAYOUT, THE DGMENSIONS 
Op I NEDSEROM PINS-DIMENSIONS, AND THE LOCATION OF THE 
Pe eee Helmet) U Tes lale ONLY  lytdeaMET Abe WHERE 
Pee eron LAYOUTS WITH PADS ON. 2 OR 3@SIDES, THE 
Revere COliibo ls OF WIRES ON THE LEFT, RIGHT AND TOP SIDES 
WITH A CONNECTION TO GROUND-PAD. FOR LAYOUTS WITH PADS 
ete otoioe IheenG CONSISTS GF WIiRES.ON ALL FOUR SIDES. 


(def Pers ground-ring 
(lambda (pins-power power dimensions extended-right extended-top 


power-point ground-point sides) 


(let ((offset (+ pins-power (pad-class-basic-height)))) 
(let ((top (- (dimensions-top dimensions) offset)) 


(right (- (dimensions-right dimensions) offset) ) 
(bottom (+ (dimensions-bottom dimensions) offset)) 
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(left (+ (dimensions-left dimensions) offset))) 


(cond 


(C= sides 2) 


(merge 


(rect ’NM (- (point-x ground-point) (/up power 2)) 
intended-top 


(rece = ul 
(rect ’NM 
(Feet eal 
((= sides 4) 
(merge 
(rect ’NM 
(rect ’?NM 
(rect ’NM 
(rect ’NM 
(pees 7 NM 
(ream raln 
(t 
(merge 
(rect ’NM 


(+ (point-x ground-point) (/up power 2)) 
(point-y ground-point) ) 

(+ (- left offset) pins-power 3) 

(- top pins-power) 

extended-right 


top) 

(+ (- left offset) pins-power 3) 

bottom 

(- (point-x power-point) (/up (pad-class-width) 


2)) 
(+ bottom pins-power) ) 
(+ (- left offset) pins-power 3) 
bottom 
(+ (- left offset) pins-power pins-power 3) 
top) )) 


(- (point-x ground-point) (/up power 2)) 

intended-top 

(+ (point-x ground-point) (/up power 2)) 

(point-y ground-point) ) 

left 

bottom 

(+ left pins-power) 

top) 

left 

(- top pins-power) 

right 

top) 

(- right pins-power) 

bottom 

right 

top) 

left 

bottom 

(- (point-x power-point) (/up (pad-class-width) 
2) 

(+ bottom pins-power) ) 

(+ (point-x power-point) (/up (pad-class-width) 
2)) 

bottom 

right 

(+ bottom pins-power) )) ) 


(— (point Sersecind= point mG Wem ome ze. 
intended-top 
(+ (point-x ground-point) (/up power 2)) 


1o4 


ieernu-y eLoumd point) ) 
(rect ’NM left 
bottom 
(+ left pins-power) 
top) 
(rect ’NM left 
(- top pins-power) 
right 
top) 
(rect ’NM (- right pins-power) 
(+ bottom (pad-class-width) ) 
right 
top ye) 


RETURNS A LIST OF FOUR NUMBERS THAT INDICATE THE WIDTH 
- REQUIRED BY THE TOP, RIGHT, BOTTOM AND LEFT PAD ROUTING 
- CHANNELS. 
(def get-ring-width 
(lambda (item right top) 
(make-ring-width 
(* 7 (if (null (extract-nets item ’top right top)) 
Q 
(net-track-number 
(minmax (extract-nets item ’top right top) 
(flambda (neti net2) 
(> (net-track-number neti) 
(net-track-number net2))))))) 
(* 7 (if (null (extract-nets item ’right right top)) 
0) 
(net-track-number 
(minmax (extract-nets item ’right right top) 
(flambda (neti net2) 
(> (net-track-number neti) 
(net-track-number net2))))))) 
(+ 7 (if (null (extract-nets item ’bottom right top)) 
0) 
(net-track-number 
(minmax (extract-nets item ’bottom right top) 
(flambda (net1 net2) 
(> (net-track-number neti) 
(net-track-number net2))))))) 
(* 7 (Cif (null (extract-nets item ’left right top)) 
0) 
(net-track-number 
(minmax (extract-nets item ’left right top) 
(flambda (neti net2) 
(> (net-track-number net1) 
(net-track-number net2)))))))))) 


} 


; NET EXTRACTION 


oer OF POINTS SETURNS A LCIST OF THE POINT 
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- Y-COORDINATES, ORDERED FROMBEEAS TS iGeen fhes f. 
(def sort-y 
(lambda (list scorted-1is2> 
(cone 
((null list) sorted-list) 
(t (sort-yt (car list) (cdr list) lost scrpea eee 


(det Ssemb ana) 
(lambda (thing 1 list sorted-list) 
(cond 
((null 1) (sort-y (excise thing list) 
(append sorted-list (list (point-y (car thing)))))) 
((> (point-y (car thing)) (point-y (eaamaiee® 
(sort-yl (car 1) (edr 1) Ist) sompedoiercie) 
(t (sort-yl thing Cedrol) Siete cemmcd—= ict een 


; PREP-PAD-BANK IDENTITIES GRE -"rucaATLON CFs tibecHeuis 
; AND POWER PADS AND CALLS ON LEFT-PAD-BANK AND 
; RIGHT-PAD-BANK TO BUILD THE PARSE SiS ie 
(def prep-pad-bank 
(lambda (list side) 
(let ((ground-point (point-x (find pins-layout ’ (ground) ))) 
(power-point (point-x (find pins-layout ’ (power) )))) 
(cond 
((eq side ? ler 
(left-pad-bank (get-nets list ’ (bottom) ) 
(get-nets list ’(left)) 
(get-nets list ’(top)))) 
(t 
(right-pad-bank (get-nets list ’ (bottom) ) 
(get-nets ist 2iG@auahia® 
(get-nets list ’(top)))))))) 


; IDENTIFIES" THOSE” PADS LOGATED 0) GH sie elm ree 
; POWER PAD IF ON THE BORTOM SAND. TOR io eee aise 
; THE GROUND™PAR IF ON DHE TOP AND RETURNS sien 
; THAT PINPOINTS THEIR LOCATION AS FOLLOWS: 
1. IF SPAD IS ONE CER > a) oe 
USE THE PADS? 1-CUGRD ENiivs 
2. IF PAD MSQ0N, THESEORI CMSs iia 
USE THE PAD A-~CWURRDINATE * =i 
' Sige Ge 1 UbMmles (Cn) es 
' USE THE PAD X-CUURDINIATE +E PeNDED UGE. 
(def left-pad-bank 
(lambda (bottom left top) 
(append 
(reverse 
(map-argument ’times -1 
(extract-points bottom power-point ’< ())())) 
(mapcar ’caddar left) --CADDR = POINT-Y 
(map-argument ’plus extended-top 
(extract-points top ground-point ’< (©) oe 
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Ure eS GHOseeeADS LOCATED) TO THE RIGHT OF THE 
; POWER PAD, IF ON THE BOTTOM, AND TO THE RIGHT OF 
; THE GROUND PAD, IF ON THE TOP AND RETURNS A LIST 
; THAT PINPOINTS THEIR LOCATION AS FOLLOWS: 
Pe tea De low Olina EGHT SIDE, 
USE DHE PAD*’S Y-COORDINATE 
Ze I eePADEIS ON Git BOLTOM SIDE, 
USEMMESr AD AsGOORDINATE * -1 
So: JRSeAre Ss ON STOR, 
USE lier AD X-COORDINATE + EXTENDED-TOP. 
(def Be pad-bank 
(lambda (bottom right top) 
(append 
(map-argument ’times -1 
(extract-points bottom power-point ’> ()) ()) 
(mapcar ’caddar right) 
(map-argument ’plus extended-top 
(extract-points top ground-point ’> ()) ())))) 


> EATRACTS ERGreen clot OF POINTS THOSE POINTS THAT MEET 
; Meee CONDt Migiimonl ery SPREDICATE WITH RESPECT TO THE 
| PA AME Reena 
M@aeft extract-points 
(lambda (list point predicate output) 
(cond 
Ccnmbie 1ist) output ) 
G 
(cond 
((predicate (cadaar list) point) 
(extract-points (cdr list) point predicate 
(append output (list (cadaar list))))) 
CU Cextractepoints (edr list) point predicate output))))))) 


fo oe eee Une PON SPECIFIED BY PREDICATE AND THE 
Pon GuUMehior DCIRTED By THE PARAMETER ARGUMENT TO EVERY 
SeEeEN IT SOF A LIST. f0R EXAMPLE, 
; (MAP-ARGUMENT ’+ 4 LIST), ADDS 4 TO EVERY ELEMENT IN 
see OS he 
(def map-argument 
(lambda (predicate argument list output) 
(cond 
((null list) output) 
(t (map-argument predicate argument (cdr list) 
(append output 
das (predicate (car list) 
argument) ))))))) 


; NET LAYOUn 


) DUB eel OF PAD SROUTING ROUTINES. THE PROBLEM IS 

; DIVIDED IN @GWO; THE LEFTeAND RIGHT ROUTING PROBLEM. 

; MOAT BREAKS THE NET-LISTS IN TWO. INNER-BANK CONTAINS 
; THE INTERNAL NET TERMINALS AND OUTER-BANK THE PAD 
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; TERMINALS. THE NET-LISTSMaRE PASSED fo Hee eee DO nie 
; OR ROUTE-RIGHT-BOTTOM. THBSE HOUDE ALL Nets Waeiieee D> sa) 
; THE BOTTOMs® WHEN FINISHED, IT PASSES She] SW erao. OF aime 
; NET-LIST TOmROUTE-LEPT=<SiDE OR sts rie orrie les 9) ree eer 

; ROUTE NETS WITH PADS ON THE SEEFT OR Sich ers eee 
; LEFT OF THE NET=LISTS 2S Te ea ere eter ene 

; OR ROUIE-RIiGhi TOR 


(def moat 
(lambda (left-ring-nets right-ring-nets layer width ring-width) 
(declare (special layer width ring-width) ) 
(let ((space 3)) 
(merge 
(let ((inner-bank (car left-ring-nets) ) 
(outer-bank (cadr left-ring-nets) )) 
(route-left-bottom (car left-ring-nets) 
(cadr left-ring-nets) 1)) 
(let ((inner-bank (car right-ring-nets) ) 
(outer~bank (cadr right-ring-nets) )) 
(route-ripht-bottem (cdr right-ring-neme 
(cadr Gight=r ing=meea) 


1) 


; MACROS USED TO EXTRACT THE DESIRED NUMBER FROM 
; RING-WIDTH. 
(defmacro top-width (item) 
Gist. car vem» 


(defmacro right-width (item) 
(list ’cadr item) ) 


(defmacro bottwomsamdth (item 
(list “eaddr item» 


(defmacro left-width (Citem) 
(list *eadddr aten)) 


* ROUTES NETS BETWEEN PADS ON THE BOTTOM AND CORRESPONDING 
>; TERMINAL ON THE LEFT SIDE UNTIL I[P@BNCOUNTERS PUsIl ies 
: VALUE IN OUTER=BANK. I7 THEN PASSES THE NEI-List ia 
ROUTE-ER a-Si 
(def reueee left-bottom 
(lambda (t-in t-out track-number) 
(cond 
({null t-out) Gill-item)) 
((> (car t-out) 0) (Croute-left-side t-in t-out 
up track-number) ) 
Ce 


(merge 

(rect layer 
(abs. (+ (car st=out iG ewan ) eo 
(- 0 pOwer (bettom-width Haine —-viden» 
Cabse (-m(carnmt=out) (/@zidth 27) 
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(Ci SOmiGeEE Gocimeninbom) width) ) 
(rect layer 
(- 0 (* track-number 7)) 
(- 0 (* track-number 7)) 
(abs (- (car t=ouw)) © wrath 2))) 
(+ (- 0 (* track-number 7)) width)) 
(rect layer 
(- O (* track-number (+ space width) )) 
(- 0 (* track-number (+ space width) )) 
(- width (* track-number (+ space width) )) 
Gmeccar t-in) (/ widtheep» 
(move (poly-cut) (- 0 (* track-number (+ space width) )) 
(Fear tein) (/ width 2))) 
(rect ’NP (- (/ width 2) (* track-number (+ space width) )) 
(- (car t-in) 1) 
(+ power space (/ width 2)) 
Gra car =i) 1) ) 
(route-left-bottom (cdr t-in) (cdr t-out) 
(+ 1 track-number))))))) 


, ROUTES NES eweeweeN PADS ON THE @eent SIDE AND THE 
; INTERNAL CIRCUIT UNTIL IT ENCOUNTERS AN ELEMENT IN 
; QUTER-BANK WITH A VALUE GREATER THAN EXTENDED-TOP. 
; Di STHENSe Aes What REMAINS OF Pipi ST TO 
OUR ae helene ke 
(def route-left-side 
lambda (t-in t-out flag track) 
(let ((span (left-width ring-width))) 
(cond 
({null t-out) (null-item)) 
((> (car t-out) extended-top) 
(route lest fap at ime tout) ) 
Ce 
(cond 
C= Sear) cean t- Out) ) 
(merge 
(rect ’NM (- 0 power span) 
(—(eareeeout) C/ width 2)) 
(- 0 space) 
(+ (car t-out) (/ width 2))) 
(move (poly-cut) (- 0 space width) 
(+ (car Tome) <7 ewiduh2))) 
(cect (= Oi space (/ width 2)) 
(- (car t-out) 1) 
(+ power space (/ width 2)) 
Ch iear tout) 1)) 
(eoulve—lertosade (cdr t-um) (cdigit-outjmastraight 1) ),) 
(C> (car teaame (car t-out)) 
(merge 
(route-left-moat-up (car t-in) (car t-out) 
(if (eq flag ’up) track 1)) 
(momme=Weft-side “(cdr team) Kedr t-out)ee’up 
Cif (eq flag ’up) (addi track) 2)))) 
(t 
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(merge 
(route-left-moat=-dowm (ear tsin) Gcauut=ome 
(if (eq flag ’down) track 1)) 
(route-left-side (cdr t-in) (Gd t—ouc gene 
(if (eq flag ’down) 
(addi track) 
2)) yey 
; ROUTES WHAT REMAINS OF NEI-LIST BET REE Neral sweety emeee 
; AND TERMINALS ONS THE EEE i=s1ee 
(def route-left-top 
(lambda (t-in t-out) 
(let ((span (top-width ring-width) ) 
CStreten oO) ) 
(cond 
(Caull tin) (nuilil=Tren,» 
G 
(merge 
(route-left-topl t-in t-out )( Neneunen oom © 
(route-left-top (edr t-1n) (edracommpese ee” 


(def route=leitscocr 
(lambda (t-in t-out track) 
(merge 
(rect ’NM (- (car t-out) extended-top (/ width 2)) 
(- (+ extended-top (* (+ space width) track)) 
width) : 
(+ (- (car t-out) extended-top) (/ width 2)) 
(+ extended-top span power power) ) 
(rect ’NM (- O (* (+ space width) track)) 
(- (+ extended-top (* (+ space width) track)) 
width) 
(+ (- (car t-out) extended-top) (/ width 2)) 
(+ extended-top (* (+ space width) track) )) 
(rect ’NM (- 0 (* (+ space width) track)) 
(~ (car tin) (/ wade 
(- width (* (+ space width) track)) 
(+ extended-top (* ( + space width) track) )) 
(move (poly-cut) (- 0 (* track (+ space width) )) 
(+ (car t-in) (/ swadthme)) ) 
(rect ’NP (- width (/ width 2) (* track (+ space width))) 
(= (Gar t-inpee 
(+ power 3 (/ width 2)) 
(+7 (camet—in) 1p) 


; WHEN THE TERMINAL IN INNER-BANK > TERMINAL FROM 
; OUTER-BANK. 
(def route-left-moat-up 
(lambda (inner outer track) 
(merge 
(rect ’NM (- 0 span power power) 
(= outer (7 euaidiaae 2) 
(- width (* track (+ space width) )) 
(+ outer (/ wideime ee 
(rect ’NM (- O (* track (+ space width) )) 
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(- outer (/ width 2)) 
(- width (* track (+ space width))) 
(+ inner (/ width 2))) 
(move (poly-cut) (- 0 (* track (+ space width) )) 
(+ inner (/ width 2))) 
(rect ’NP (- 0 (* track (+ space width)) (/ width 2)) 
(~ inner 1) 
(+ power 3 (/ width 2)) 
(+ inner 1))))) 


; WHEN TERMINAL IN OUTER-BANK > TERMINAL FROM INNER-BANK. 
(def route-left-moat-down 
(lambda (inner outer track) 
(merge 
(rect ’NM (- 0 span power power) 
(- outer (/ width 2)) 
(- (* track (+ space width)) space span) 
Gouterme width 2) ))) 
(rect ’NM (- (* track (+ space width)) span space width) 
| (- emer (/ width 29) 

(- (* track (+ space width)) span space) 
(+ outer (/ width 2))) 

(move (poly-cut) (- (* track (+ space width)) 

Span space width) 
(+ inner (/ width 2))) 
(rect ’NP (- (* track (+ space width) ) 
span space (/ width 2)) 

CG einen 1) 
(+ power 3 (/ width 2)) 
(+ inner 1))))) 


; ROUTES NETS BETWEEN PADS ON THE BOTTOM AND CORRESPONDING 
Tea eerste Ll ENCOUNTERS POSITIVE 
3 VALE ete asAN ne tae PASSES THE NET-LIST TO 
ROURES WGP Ss 1DE 
(def route- Ent eco 
(lambda (t-in t-out track-number) 
(cond 
Cull, tocar a cailii-atem) ) 
CC (eam ot) sO) "\route-right—-sidest-in t-out ’up 
track-number) ) 
(t 
(merge 
(rect layer (abs (+ (car t-out) (/ width 2))) 
(- 0 (bottom-width ring-width) power) 
Cabs "(— (car tect) s@awidth 2))) 
(+ (- 0 (* track-number 7)) width)) 
(rect layer (abs (+ (car t-out) (/ width 2))) 
(- 0 (* track-number 7)) 
(+ extended-right (* track-number 7)) 
(+ (- 0 (* track-number 7)) width)) 
(rect layer (- (+ extended-right (* track-number 
(+ space width) )) 
width) 
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(- 0 (* track-number (+ space width) )) 
(+ extended-right (* track-number 
(+ space width) )) 
(+ (car t-in) (7 eyed) ee 
(move (poly-cut) (- (+ extended-right 
(* track-number (+ space width) )) 
width) 
(+ (car t=in) (/ widuiZ) 
(rect ’NP (- extended-right power 3 power 3) 
(] ear 2 mn) ae 
(+ extended-right space (/ width 2)) 
Gs (Careu-in) ay 
(routiemedight-bottom (cdr t-in) “edr Teou 
(+ 1 track-number))))))) 


; ROUTES NETS BETWEEN PADSSON Tare ter Dae eee 
; INTERNAL CIRCUIT UNTIL IT ENCOUNTERS AN ELEMENT IN 
; OUTER-BANK WITH A VALUE GREATER THAN EXTENDED-TOP. 
; LT THEN PASSES WHAT REMAINS UF Sie rS ly 
7 ROUTE-R Gre oie 
(def route-right-side 
(lambda (t-in t-out flag track) 
(let ((span (right-width ring-width) )) 
(cond 
((null t-out) (null-iene9 
((> (car t-out) extendéd-top)) (romtesricht~lop) Gein eo ue 
ec 
(cond 
((= (car t-in) (carstocmis 
(merge 
(rect ’NM (+ extended-right space) 
(= (car t=-in) (/ Sidi» 
(+ extended-right span power) 
(+ (car t-iny mie svidiuneeepo) 
(move (poly-cut) (+ extended-right space) 
(+ (cam t-in) (/ widen» 
(rect ’NP (- extended-right power 3 power 3 (/ width 2)) 
(= (carit-in 
(+ extended-right space (/ width 2)) 
(+ (car team) lop 
(route-right-side (edr t=-in) (cdr t-out) “straaeniees 
((> (car t-i1nji@ear stout)» 
(merge 
(route-right-moat-up (car tin) sccamer cm 
(if (eq flag ’up) track 1)) 
(route-Pilght-side (Ccedr t-im)) (cdr t-euv) aan 
(if (eq flag ’up) (addi track) 2)))) (t 
(merge 
(route-right-moat-down (car t-in) (car t-out) 
(if (eq flag ’down) track 1)) 
(route-right-side (cdr f-injg@iedr ceomm meade 
(if (eq flag ’down) 
(addi track) 
2)) ae) 
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; WHEN THE TERMINAL IN INNER-BANK > TERMINAL FROM 
; QUTER-BANK. 
(def route-right-moat-up 
(lambda (inner outer track) 
(merge 
(rect ’NM (+ extended-right 
(* track (+ space width) )) 
(- outer (/ width 2)) 
(+ extended-right span power power) 
(eOurer (/ warden 2) ) ) 
(rect ’NM (+ extended-right 
(+ track (+ space width) )) 
Gwonceme cy, = widt nz )) 
(+ extended-right width 
(* track (+ space width) )) 
(+ inner (/ width 2))) 
(move (poly-cut) (+ extended-right 
(* track (+ space width) )) 
Cominner: (7 swudthalen. 
(rect ’NP (- extended-right power 3 power 3 (/ width 2)) 
(- inner 1) 
(+ extended-right (/ width 2) 
(* track (+ space width) )) 
Creamer 1) )))) 
; WHEN THE TERMINAL IN INNER-BANK < TERMINAL FROM 
; QUTER-BANK. 
(def route-right-moat-down 
(lambda (inner outer track) 
(merge 
(rect ’NM (- (+ extended-right space span) 
(* track (+ space width) )) 
(="otltmere(/ width 2)) 
(+ extended-right span space power power) 
Gepouter (/ width 2))) 
(rect ’NM (- (+ extended-right span space) 
(* track (+ space width) )) 
Gaimnem.¢/ width 2)) 
(- (+ extended-right span width space) 
(* track (+ space width) )) 
G@eouter (/ width 2))) 
(move (poly-cut) (- (+ extended-right span space) 
(* track (+ space width))) 
CHeinimere / mwiidtn 2))) 
(rect ’NP (- extended-right power 3 power 3 (/ width 2)) 
(seanner “1) 
(- (+ extended-right span (/ width 2) space) 
(* track (+ space width) )) 
Saemmer 1))))) 


PewOneomwe ll REMAINS OF NEI-LIST BETWEEN PADS ON TOP 
ONE ALS ON THE LEFT-SIDE. 
(def route-right-top 
(lambda (t-in t-out) 
(let ((span (top-width ring-width) ) 
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(stretehucrs 


(cond 


(Cnull t-in) (null-item)) 


(t 


(merge 
(route-right-topl t-in tol cae meaty © 
(route-right-top (cdr t-in) cde cee) pees 


(def route-right-topl 
(lambda (t-in trowe trac 


(merge 
(rect 


(rece 


(rect 


(move 


(reer 


>NM (- 
e 
wiatin 
(+ 
(+ 
NM (- 
CG 


(+ 
(+ 
NM (- 


(- 


(+ 
(+ 


(car t-out) extended-top (/ width 2)) 
(+ extended-top (* (+ space width) track) ) 


(- (car t-out) extended-top) (/ width 2)) 
extended-top span power power) ) 

(car t-out) extended-top (/ width 2)) 

(+ extended-top (* (+ space width) track)) 
width) 

extended-right (* track (+ space width) )) 
extended-top (* (+ space width) track) )) 
(+ extended-right (* (+ space width) track) ) 
width) 

(Car tqany <7 svidenuzee 

extended-right (* (+ space width) track)) 
extended-top (* ( + space width) track))) 


(poly-cut) (- (+ extended-right 


ANGE IC 
e 
(oe 


(aa 


+ 


(* track (+ space width) )) 
width) 

(+ (car t-in), C/ suai. 2) 
extended-right power 3 power 3 (/ width 2)) 
(Carn trina 
(+ extended-right (* track (+ space width))) 

(/ width 2)) 
(car t-in) spoope 
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APPENDIX C 


SOURCE CODES FOR TEST CIRCUITS 


A. MEMORY 


(program memory 2 
(def 11 power) 
(def 1 ground) 
(def 2 phia) 
(def 3 phib) 
(def 4 phic) 
(def on signal input 5) 
(def reset signal input 6) 
(def a port input (7 8)) 
(def b register) 
(def c port output (9 10)) 
(proces proci 0 
ot f 
(cond (on (go start)) 
(URCGo oft) 


start 
(cond (on (setq b a) 
(setq c b) 
(co Stam) 
(t (setq b a) (go off))))) 
B. TEST 


(program test 2 
(def 10 power) 
(def 1 ground) 
(def 2 phia) 
(def 3 phib) 
(def 4 phic) 
(def on signal input 5) 
(def reset signal input 6) 
(def a port input (7 8)) 
(def b register) 
(def c port output (9 10)) 
(process proci 0 
run (setq b a) 
(setq c b) 
(go run))) 


(def 
(def 
(def 
Coleae 
Caer 
(def 
(def 
(der 
(def 
(dem 
Gen 
(def 
(def 
(den 
(def 
(def 
(def 
(def 


C. MULTIP4 


(program multip4 4 


1 ground) 

ain port input (Zeen4tea® 
aQ register) 

al register) 

a2 register) 

bin port input (6 7 8 9)) 
bO register) 

bil register) 

b2 register) 

res port output (10m Je 
rQ register) 

ri register) 

r2 register) 

14 phia) 

15 phib) 

16 phate) 

reset signal input 17) 

18 power) 


(always 
(cond ((bit 0 bin) (setq 70 (>> (bit 0 ain) wae 


(t (seta eo ucppD 


(cond ((bit 1 bo) Csetq rl O> (bit 0 (+ ,rO09a0)) (Fr r0 207 ee 
(t Csetq ri (> (obit 0 0) ep 

(cond ((bit 2 bi) (setq r2 (>> (bit 0 (+ nil al)) (+ civaeee 
(t (setq r2 (>> (bre Oer1) a) ee 

(cond ((bit 3 b2) (setq) res (>> GoieC Gre a 


(t (setq res 
(cond (reset (setq 


(+ r2 a2)))) 
(>> (bit 0 22) ra ep 
aO 


bO 
al 


(setq 
(setq 
(setq bi 
(setq a2 
(set qb2 
(setq a0 
(setq b0 
(setq al 
(setq bi 
(setq a2 
(setq b2 


CE 


ble 
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Dee ATX | 


(program taxi 8 


caer 
caer 
der 
faiet 
(def 
(def 
edef 
Eder 
(def 
caer 
edef 
(def 
(gef 
eaef 
(def 
fale t 
ifdef 


17 power) 

1 ground) 

2 phia) 

3 phib) 

4 phic) 

timer register) 

fare register) 

reset signal input 5) 
time-on signal input 6) 

hire signal input 7) 
mile-mark signal input 8) 
aelay port inplut (9 10 11 12 13 14 15 16)) 
charge-time signal internal) 
maximum-time constant 100) 
base-fare constant 20) 
cost-per-mile constant 50) 
cost-per-time constant 10) 


(process time-clock 0 


ort 


(cond (time-on (setq timer 0) (go on)) 


on 


Gego oft) 


(cond (time-on (cond ((= timer maximum-time) 


(setq timer 0) 
(signal charge-time) 
(t (setq timer (i+ timer)))) 
(go on)) 
(t (setq timer 0) (go off)))) 


(process fare-clock 0 
hor-hire 
(cond (hire (setq fare base-fare) (go hired) ) 


hired 


(t (go for-hire))) 


(par (cond ((not hire) (go for-hire)) 


(Cand charge-time mile-mark) 

(setq fare (+ (+ fare cost-per-mile) 
cost-per-time) ) 

(go hired) ) 

(charge-time 
(setq fare (+ fare cost-per-time) ) 
(go hired) ) 

(mile-mark 
(setq fare (+ fare cost-per-mile) ) 
(go hired) ) 

(t (go hired) )) 

(setq display fare)))) 
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